16,748
社区成员
发帖
与我相关
我的任务
分享
uses System.Generics.Collections;
type
TTest = record
name : string;
age : Integer;
procedure setage(vage : Integer);
end;
var myTest: TList<TTest>;
procedure TForm1.FormCreate(Sender: TObject);
var
e : TTest;
begin
e.name := 'AAA';
e.age := 100 ;
myTest := TList<TTest>.Create;
myTest.Add(e);
e.age := 50;
memo1.Lines.Add(IntToStr(myTest.Items[0].age));
myTest.Items[0].age := 0; //这里报错 提示不能这样写
memo1.Lines.Add(IntToStr(myTest.Items[0].age));
end;