pubfunc.pas

来自「使用Delphi操作Excel的例子。 功能是从一个excel文件中删除另外一」· PAS 代码 · 共 48 行

unit PubFunc;

interface

uses Windows, forms, SysUtils, Classes;

procedure WriteLog(const Info: string);

implementation

procedure WriteLog(const Info: string);
var
  Stream: TFileStream;
  FileName: string;
  Msg: string;
  P: PChar;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'Log\' + FormatDateTime('YYYYMMDD',
    Now) + '_' +
    ExtractFileName(ChangeFileExt(ParamStr(0), '.Log'));
  try
    if FileExists(FileName) then
    begin
      Stream := TFileStream.Create(FileName, fmOpenReadWrite or
        fmShareDenyNone);
    end
    else
    begin
      Stream := TFileStream.Create(FileName, fmCreate);
    end;

    try
      Stream.Seek(0, soFromEnd);

      Msg := FormatDateTime('YYYY-MM-DD HH:NN:SS.ZZZ', Now) + '|';
      Msg := Msg + Info + Char($0D) + Char($0A);
      P := PChar(Msg);
      Stream.Write(P[0], Length(Msg));
    finally
      Stream.Free;
    end;
  except
  end;
end;

end.