不明白不让编译的原因，记录下之遇到注意原油。

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;