编程开发论坛 - Powered by Discuz! Board

标题: delphi中，请问如何将列表中的内容保存成文本文件？ [打印本页]

作者: xiangxyx 时间: 2006-5-22 21:52 标题: delphi中，请问如何将列表中的内容保存成文本文件？

delphi中，请问如何将列表中的内容保存成文本文件？
procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
  F : TextFile;
begin
  if SaveDialog1.Execute then
  begin
AssignFile(F,SaveDialog1.FileName);
Write(F);
For i := 0 to ListBox1.Count - 1 do;
   Writeln(i);
  CloseFile(F);
  end;
end;

为何不行呢？

作者: johnny_mail 时间: 2006-10-8 17:27 标题: 回复 #1 xiangxyx 的帖子

procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle:Integer;
RC:TextFile;
str: string;
begin
if not FileExists('C:\*.txt') then
begin
FileHandle := FileCreate('C:\*.txt');
FileClose(FileHandle);
end;
str := listbox1.Items.Text;
AssignFile(RC,'C:\*.txt');
append(RC);
writeLn(RC,Str);
closefile(RC);
end;
这样试试，路径可以是相对的、绝对的或是用savedialog控件来指定

作者: kuku2012 时间: 2007-5-15 10:53

晕的你怎么不用

listbox1.Items.SaveToFile();

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)