Delph日志类

unit WriteInfo;

interface
   uses
     SysUtils;

   procedure WriteDbgLog(sLogInfo : string);
implementation

  procedure WriteDbgLog(sLogInfo : string);
var
  logfile : String ;
  tmpStr : PChar;
  h : integer ;
begin
  sLogInfo := FormatDateTime('HH:MM:SS',Now) +'  '+ sLogInfo +  #13#10;
  tmpStr := PChar(sLogInfo);
  logfile :='d:\WriteLog.txt' ;
  if not FileExists(logfile) then
  begin
    h :=FileCreate(LogFile) ;
    FileClose(h) ;
  end;
  h:=FileOpen(LogFile,fmOpenReadWrite);
  FileSeek(h,0,2);
  FileWrite(h,tmpStr^,length(tmpStr));
  FileClose(h);
end;




end.