All pastes #206042 Raw Edit

Miscellany

public text v1 · immutable
#206042 ·published 2006-10-17 06:13 UTC
rendered paste body
procedure LogWrite(cmd:integer; s:string);
var
  f:Text;
begin
  AssignFile(f, ExpandEnvi('%TEMP%\kh.log'));
  try
    try
      Append(f);
    except
      Rewrite(f);
    end;
    Writeln(f, Format('[%s] [cmd=%d] %s', [DateTimeToStr(Now), cmd, s]));
    CloseFile(f);
  except
  end;
end;