Question

请教Delphi中的record结构体能嵌套么

Answer 1

以下是 delphi 语言中，对 record 类型进行嵌套的示例代码：

type
  PPersonName = ^TPersonName;
  TPersonName = record
    Name: string;
  end;
 
  PPersonArr = ^TPersonArr;
  TPersonArr = record
    arr: array[0..10] of PPersonName;
  end;
 
 
var
  A: PPersonName;
  B: PPersonArr;
  I: Integer;
begin
  New(B);  {申请PPersonArr内存}
  for I := 0 to 10 do
  begin
    New(A); {申请PPersonName内存}
    A.Name := 'A' + IntToStr(I);
    B.arr[I] := A
  end;
 
  for I := 0 to High(B.arr) do      {使用}
    ShowMessage(B.arr[I].Name);
 
  for I := High(B.arr) downto 0 do
    Dispose(b.arr[I]);  {释放PPersonName内存}
  Dispose(B); {释放PPersonArr内存}
end;

不建议对 record 进行嵌套，可以使用类来解决。