type
TXXX = record
xxx: integer;
end;
PXXX = ^TXXX;

var
.....
p: PXXX;
begin
....
New(p);
p.xxx := 10;
AList.Add(p);
end

Type
    RecTest = record (packed)
      ID :integer;
       Name :string;
      Descript:string;
    end;

PRecList = ^RecTest
     RecList arrary[0..100] of PRecList

1.
  type
    PA1 = ^TA1
    TA1 = record
      FA1, FA2: string;
    end;
2.
  type
    PB2 = ^TB2
    TB2 = record
      FB1, FB2: string;
    end;  

List_USERTYPE := TList.Create;     

//释放Tlist的存储的结构体
procedure TFrom_AdvSpreadGrid.FreeRecord(AList: TList);
var
  i: Integer;
begin
  for i := 0 to AList.Count - 1 do
  begin
    if Assigned(AList[i]) then
      2. 如果定义的是基本类型如：integer，char等可以通用释放；3.如果定义的是短字符串类型，string[255]这样也可以释放
      //Dispose(AList[i]);
      // 1.定义的记录类型是复杂类型，包括string时，必须使用对应定义的记录来释放，例如如下：
      Dispose(PUSE_TYPERec(AList[i]));
  end;
end;

增加记录的代码：
1.
  New(MyUSE_TYPERec);
  MyUSE_TYPERec^.F_USE_TYPE_ID := '';
  MyUSE_TYPERec^.F_USE_TYPE_Name := '';
  List_USERTYPE.Add(MyUSE_TYPERec);

  New(MyUSE_TYPERec);
  MyUSE_TYPERec^.F_USE_TYPE_ID := 'U';
  MyUSE_TYPERec^.F_USE_TYPE_Name := '正常编报';
  List_USERTYPE.Add(MyUSE_TYPERec);

  New(MyUSE_TYPERec);
  MyUSE_TYPERec^.F_USE_TYPE_ID := 'S';
  MyUSE_TYPERec^.F_USE_TYPE_Name := '虚拟汇总单位';
  List_USERTYPE.Add(MyUSE_TYPERec);
2.
  New(MyUSE_TYPERec);
  MyUSE_TYPERec^.F_USE_TYPE_ID := 1;
  MyUSE_TYPERec^.F_USE_TYPE_Name := 1;
  List_USERTYPE.Add(MyUSE_TYPERec);

  New(MyUSE_TYPERec);
  MyUSE_TYPERec^.F_USE_TYPE_ID := 2;
  MyUSE_TYPERec^.F_USE_TYPE_Name := 2;
  List_USERTYPE.Add(MyUSE_TYPERec);

//

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！