请问如何在比如ListBox之类的控件中加入字符串类型的object

Question

你可以定义一个结构，对所有类型都可以
PMyRecord=^TMyREcord;
TMyRecord=record
  MyStr:String;
  MyInt:Integer;
end========
Var
  MyREcord :PMyRecord;
Begin
  New(MyRecord);
  MyRecord.MyStr :='dssad';
  MyREcord.MyInt :=10;
  ListBox.Items.Addobject('Test Str',MyRecord);
...
end;========
Var
  MyREcord :PMyRecord;
  sStr :String;
  iInt :Integer;
Begin
  MyRecord :=PMyRecord(ListBox.Items[0].Data);
  sStr :=MyRecord.MyStr;
  iInt :=MyRecord.MyInt;
end;
==========
Var
  MyRecord :PMyrecord;
  i:Integer;
Begin
  for i :=0 to ListBox.Items.Count -1 do
  Begin
    MyRecord :=PMyRecord(ListBox.Items[i].Data);
    Dispose(MyRecord);//记住要释放内存
  end;
end;

Answer 1

alin的方法是对的，但在取数据时，应是listbox.items.objects[i],而不是listbox.items[i].data