delphi怎么把一个字符串变量保存到一个文本文件中?

Question

delphi怎么把一个字符串变量保存到一个文本文件中?

Answer 1

用ini文件，看ini的读写对应的类就知道了
或者
var
 s:string;
 sl:Tstringlist;
begin
 sl:=Tstringlist.create;
 sl.add(s);
 sl.savetofile('c:\test.txt');
 sl.free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  afile: TFileStream;
begin
  if not FileExists('c:\a.txt') then
  begin
    try
      afile := TFileStream.Create('c:\a.txt', fmCreate);
      afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
    finally
      afile.Free;
    end;
  end
  else begin
    try
      afile := TFileStream.Create('c:\a.txt', fmOpenWrite);
      afile.Seek(0, soEnd);
      afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
    finally
      afile.Free;
    end;
  end;
end;
这样就可以了！不过这个只是例子！还要修改！