Question

delphi中如何将listbox内容保存到text文本中，在系统中怎样自动生成text文本

我这个为什么会出现找不到text文本路径
procedure TForm2.Button1Click(Sender: TObject);
var
str:Tstringlist;
i:integer;
t:string;
begin
str:=Tstringlist.Create;
for i := 0 to ListBox1.Items.Count-1 do
begin
str.add( ListBox1.Items[i] );
end;

t:=formatdatetime('ddddd',now)+' '+formatdatetime('hh',now)+'-'+formatdatetime('nn',now)+'-'+formatdatetime('ss',now)+'.txt';
str.SaveToFile(t);
str.free;
showmessage('已保存!');
end;

Answer 1

listbox1本身就可以savetofile啊,搞的这么麻烦
begin
listbox1.items.savetofile(formatdatetime('ddddd',now)+......);
showmessage('已保存');
end;

追问

刚刚运行说“系统找不到指导路径”

追答

第一个可能,看看你的一窜formatdatetime是不是有问题,用showmessage(formatdatetiem.....)看看，第二个,看看你的程序保存在哪,是不是保存的位置有问题

追问

求qq，求解答

追答

3921342

Answer 2

saveToFile要文件路径 + 文件名.你的t变量只赋值了文件名