加载log文件

标签：assign   加载   else   procedure   sign   exists   roc   proc   pen   

procedure Jslog(szLogText:string);
var
pMyFile : TextFile;
begin
Assignfile(pMyFile, ‘log.txt‘);
if FileExists(‘log.txt‘) then
Append(pMyFile)
else
ReWrite(pMyFile);
Writeln(pMyFile, szLogText);
CloseFile(pMyFile);
end;

加载log文件

标签：assign   加载   else   procedure   sign   exists   roc   proc   pen   

原文地址：https://www.cnblogs.com/semth/p/8918720.html