lazarus写文本文件的例子/源码/DEMO

猫工

自己以前写的，写得不好，请不要丢砖

2. procedure TForm1.Button1Click(Sender: TObject);
3. begin
4.   WriteLog('我进去了进去了');
5. end;
6. procedure TForm1.WriteLog(strInfo: string);
7. var
8.   wText: TextFile;
9.   f: string;
10. begin
11. f := ExtractFilePath(Paramstr(0)) + 'info.log';
12.   AssignFile(wText, f);
13.   if not fileExists(f) then
14.     ReWrite(wText);
15.   Append(wText);
16.   Writeln(wText, FormatDatetime('yyyy-MM-dd HH:mm:ss', now));
17.   CloseFile(wText);
18. end;  

复制代码

书痕

“我进去了进去了....”
这句话不错

书痕

lz都引用的哪些单元？

猫工

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;

lz_whj

路过，学习