rdian是一个结构体，pdian=^Rdian，list泛型做什么用？
不明白不让编译的原因，记录下之遇到注意原油。
var mylist:TList<string>;
mylist1:TList<Pdian>;
mydian:Pdian;
i:Integer;
mylist2:TList<Rdian>;
mydian2:rdian;
arr:array of Rdian;
begin
mylist:=TList<string>.Create;
mylist.add('ljk');
mylist[0]:='ljkk';
mylist.free;
mylist1:=TList<Pdian>.Create;
new(mydian);
mylist1.add(mydian);
mylist1[0].x:=10;
for I := 0 to mylist1.Count-1 do
begin
mylist1[i].x:=i;
end;
mylist1.Free;
{
mylist2:=TList<rdian>.create;
mylist2.Add(mydian2);
mylist2[0].x:=0;//不让编译。
}
{
new(mydian);
mylist2:=TList<rdian>.create;
mylist2.Add(mydian^);
mylist2[0].x:=0;//不让编译。
}
//代替上面
i:=1;
SetLength(arr,i);
arr[0].x:=1222;
Inc(i);
SetLength(arr,i);
arr[1].x:=1222;
end;