[fpc-pascal]RE: quick question

[Jeff Pohlmeyer]

program testbot;

uses dos;

function exists(const fn:string):boolean;
var
  f : text;
begin
  {$I-}
  if ( fn <> '' ) then
  begin
    exists:=True;
    ioresult;
    assign(f, fn);
    reset(f);
    if ( ioresult = 0 ) then close(f) else exists:=False;
  end else exists:=False;
  {$I+}
end;


function NowStr:string;

  function pad(n:word):string; // nested function
  begin
    str(n, pad);
    if ( length(pad) < 2 ) then pad := '0' + pad;
  end;

var
  yr, mo, day, hr, min, sec, x : word;

begin
  GetDate(yr, mo, day, x);
  GetTime(hr, min, sec, x);
  NowStr := pad(yr) + '-' + pad(mo)  +'-' + pad(day) + ' ' +
            pad(hr) + ':' + pad(min) +':' + pad(sec);
end;



var
  ftb : text;
  botlog : string;
begin
   botlog := 'bot.log';
  assign(ftb, botlog);
  if exists(botlog) then append(ftb) else rewrite(ftb);
  writeln(ftb,'bot log created on ', NowStr);
  close(ftb);
end.


__________________________________
Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster
http://search.yahoo.com

_______________________________________________
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal