xiangxyx

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

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

晕的 你怎么不用

listbox1.Items.SaveToFile();