如何将一个string存到一个文本文件中？

Question

你把前次我写的程序反过来不就可以存了吗。
TStringList即有LoadFromFile，也有SaveToFile。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);//按钮单击事件
var
   str:string;
   out_file:TextFile;
begin
     AssignFile(out_file,'c:\a.txt');
     ReWrite(out_file);
     str:='一个字符串';     
     Writeln(out_file,str);
     closefile(out_file);
end;