userunit.pas

来自「DELPHI编写OPC(一)： 编写OPC客户端程序」· PAS 代码 · 共 23 行

unit UserUnit;

interface
uses SysUtils,Classes;
var
   GroupCount:Integer;
    procedure LogActivity(functionName, msg: PChar);

implementation

procedure LogActivity(functionName, msg: PChar);
begin
// DeleteFile(ExtractFilePath(ParamStr(0))+'debug.txt');
  with TStringList.create do
  begin
      if FileExists(ExtractFilePath(ParamStr(0))+'debug.txt') then
        LoadFromFile(ExtractFilePath(ParamStr(0))+'debug.txt');
      Add(Format('[%s] %s: %s', [FormatDateTime('YYYY/MM/DD HH:MM:SS',now), functionName, msg]));
      SaveToFile(ExtractFilePath(ParamStr(0))+'debug.txt');
  end;
end;
end.