[Adrenalin666]

Код:

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

как нам сделать, что если файл не найден для добавления то создаем его в папке программы

[v1s2222]

Код:

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

[Adrenalin666]

о спасибо!

[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);

[v1s2222]

Ну вообщето это не так уж и сложно + IOResult отлавливает не только ошибку на существования файла, но и все остальные, которые могут быть (типо процесс не может получить доступ к файлу, так как файл занят другим процессом и т.д.)