[Asinkrit]

Сообщение от v1s2222

Код:

AssignFile(myFile,'Log.txt');
{$I-}
  Reset(myFile);
  if(IOResult <> 0) then // если файла нет, или есть ошибка, то создаю новый фал:
    ReWrite(myFile);
{$I+}
WriteLn(myFile,' '+(t)+' Было выдано: ' + FloatToStr(v) + 'руб. !');
CloseFile(myFile);

Зачем так сложно?

Код:

  AssignFile(myFile,'Log.txt');
  if FIleExists('Log.txt') then reset(myFile)
    else Rewrite(myFile);
  WriteLn(myFile,' '+(t)+' Было выдано: ' + FloatToStr(v) + 'руб. !');
  CloseFile(myFile);