TStringList的AddObject方法的第二个参数可以"携带"什么类型的数据?

Question

请问以下代码中,为什么将temp类型改为double或real就会出错?
procedure TForm1.Button1Click(Sender: TObject);
var
  StrlstTemp:TStringList;
  txtline:string;
  temp:single;
begin
  StrlstTemp:=TStringList.Create;
  txtline:='abcdefghijklm';
  temp:=1.23456789012;
  StrlstTemp.AddObject(txtline,TObject(temp));
  form1.Caption:=strlsttemp[0];
end;

Answer 1

那个地方只放得下四个字节的值（一个指针大小）
所以DOUBLE什么的要出错。
就算不报错，也不要这样用。自己定义一个类，
TMyNode=class
  public
    rValue:real;
....
end;。
var
  tmp:TMyNode;
.....tmp:=TMyNode.Create;
tmp.rValue:=1.23456789012;StrlstTemp.AddObject(txtline,tmp);...