Delphi实用小函数

1.Write log entries to file.

// Begin of Logger

Uses SysUtils;

 

procedure Logger(MsgText: string);

var

  Flog : textfile;

begin

  AssignFile(FLog, 'c:/test.txt');

 

  if FileExists('c:/test.txt') then Append(FLog) else Rewrite(FLog);

  try

    writeln(FLog, FormatDateTime('mm/dd/yy hh:nn:ss', Now) + MsgText);

    Flush(FLog);

  finally

    CloseFile(FLog);

  end;

end;

// end of Logger