我错在哪儿了？
TempStr:= Edit2.Text;
//ListBox1.Items.Add(Edit2.Text);
listBox1.Items.AddObject(Edit2.Text, TObject(TempStr));

为什么取出TObject是空？Edit2.Text 我输入值了。我错在哪儿了？


[解决办法]
那就定义一个类吧
type
TFileInfo = class
private
FileName: string[20];
FilePath: string[100];
end;

//添加
var
FileInfo: TFileInfo;
begin
FileInfo:= TFileInfo.Create;
FileInfo.FileName:= '文件名';
FileInfo.FilePath:= '文件路径';
listBox1.Items.AddObject(FileInfo.FileName, FileInfo);
end;

//读取时转型一下
var
sName, sPath: string;
begin
sName:= TFileInfo(FlistBox1.Items.Objects[i]).FileName;
sPath:= TFileInfo(FlistBox1.Items.Objects[i]).FilePath;
end;