1. 程式人生 > >delphi 結構體和TList的用法

delphi 結構體和TList的用法

sage ring double nbsp phi reat delphi final del

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;

delphi 結構體和TList的用法