16,748
社区成员
发帖
与我相关
我的任务
分享关于TObjectList类的使用－在线等
我想使用Tobjectlist类，使用它的add()方法添加一个string类型的数据，可是它只接收TObject型的数据，怎么弄，谢谢！怎么取出TObjectlist链中的数据！
...全文
请发表友善的回复…
发表回复
SStallMan 2004-12-24
- 打赏
- 举报
谢谢各位
yeliming 2004-12-24
- 打赏
- 举报
干吗不用TStringList啊？
梅青松 2004-12-24
- 打赏
- 举报
var
Objects: TObjectList;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
str: String;
begin
str := 'My String Object';
Objects := TObjectList.Create;
Objects.Add(Tobject(str));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
begin
str := String(Objects.Items[0]);
ShowMessage(str);
end;
ps： 只是String的话为什么不用TStringList
Objects: TObjectList;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
str: String;
begin
str := 'My String Object';
Objects := TObjectList.Create;
Objects.Add(Tobject(str));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
begin
str := String(Objects.Items[0]);
ShowMessage(str);
end;
ps： 只是String的话为什么不用TStringList
