Question

Delphi：如何保存*.txt/打开

点击button1把Listbox1保存为 日志.txt 到根目录点击button2打开 日志.txt（不是显示在窗体上，就是运行根目录下的日志.txt）

Answer 1

procedure TFrmMain.button1Click(Sender: TObject);//保存
var
sParth: string;
sFiel: TextFile;
iTemp: Integer;
begin
sParth := ExtractFilePath(Application.ExeName)+'\log.txt';
AssignFile(sFiel, sParth);
Rewrite(sFiel);
for iTemp := 0 to Listbox1.Items.Count-1 do
Writeln(sFiel, Listbox1.Items[iTemp]);
CloseFile(sFiel);
end;//在interface 部分引用 ShellAPIprocedure TFrmMain.btn5Click(Sender: TObject); //打开
var
sParth: string;
begin
sParth := ExtractFilePath(Application.ExeName)+'log.txt';
ShellExeCute(handle, nil, PChar(sParth), Nil, nil, SW_SHOWNORMAL);
end;

Answer 2

其实txt文件 就用memo控件就很好控制，不用写几行代码，所有的功能都就有了，何乐而不为？ 至于不让它显示出来还不好办？ mome1.line.save();mome1.line.load();mome1.text:=mome1.line.add();