delphi中如何把输入的字符串保存成log

Posted 2023-03-24

procedure WriteTxt(TextStr, FileName: string);
//TextStr为要写的内容,FileName为路径及文件名
var
TextF: TextFile;
begin
AssignFile(TextF,FileName);
if FileExists(FileName) then
Append(TextF)
else
Rewrite(TextF);

Writeln(TextF, TextStr);
CloseFile(TextF);
end; 参考技术A log4D,呵呵，日志控件，很好用。 参考技术B 不同的数据库方法可能不一样.