type
PRecord = ^TMyRec;
TMyRec = record
s: string[8];
i: integer;
d: double;
end;
var
MyList: TList;
PR: PRecord;
begin
MyList := TList.Create;
try
New(PR);
PR.s := '10000001';
PR.i := 1001;
PR.d := 0.1;
MyList.Add(PR); //存入TList
{...}
PR := MyList.Items[0];
showMessage(inttostr(PR.i) + ': ' + PR.s); //显示
finally
MyList.Free;
end;
end;
![](https://img2024.cnblogs.com/blog/35695/202403/35695-20240328092537879-1189167464.jpg)