将 String 类型存到 TStings.Objects[0] 怎么存与取???

Question

TStrings.AddObject('Item',TObject('abc')); //存
var
  mystr : String;begin
  mystr := String(TStirngs.Objects[0]);
end;上面的方法不行.有什么好的方法,除了 用 record 与 myObj = class 的方法后还有什么方法给你 TObject的值????

Answer 1

请使用TStrings的子类TStringList，因为有些TStrings有些抽象方法在子类才能实现。
procedure TForm1.Button1Click(Sender: TObject);
var a:TStringList;
    MyStr,s:string;
begin
  a:=TStringList.Create;
  s:='abc';
  a.AddObject('Item',TObject(s));
  MyStr := String(a.Objects[0]);
  ShowMessage(MyStr);
  a.Free;
end;