16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var Mylist1,Mylist2:TList;
begin
Mylist1:=TList.Create;
Mylist1.Add(PChar('A'));
Mylist1.Add(PChar('B'));
Mylist1.Add(PChar('C'));
Mylist2:=TList.Create;
Mylist2.Assign(MyList1);
Edit1.text:=IntToStr(MyList2.Count);
end;