delphi如何向txt写数据

Posted 2023-03-23

delphi如何向txt写数据

参考技术A 在窗体上建立以个memo组件
memo的lines属性有一个loadfromfile 和savetofile 属性 用这两个属性可以很容易的读写txt文件

不明白的话可以给我发邮件 我给你范例
我邮箱 [e-mail] 参考技术B function writetotextfile(filename, msg: string): boolean;
var
afile: TextFile;
begin
assignfile(afile, filename);
if not fileexists(filename) then
rewrite(afile);
append(afile);
writeln(afile, msg);

flush(afile);
closefile(afile);
end; 参考技术C 追加吗？append。 参考技术D 可以TStringList创建个对象，把要写的能用对象的add方法添加，最后用对象的SaveToFile保存，用起来像MEMO控件。

procedure TFormClientToAIS.Button1Click(Sender: TObject);
var
RSetS: TStringList;
begin
RSetS := TStringList.Create;
if SaveDialog1.Execute then
begin
try
RSetS.Clear;

RSetS.Add('第一行内容');
RSetS.Add('第二行内容');
……

RSetS.SaveToFile(SaveDialog1.FileName);

Application.MessageBox('数据保存完成！', '完成', MB_OK + MB_IconInformation);
finally
RSetS.Free;
end;
end;
end;本回答被提问者采纳