[Adrenalin666]

Код:

1 2 3 4

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

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

[v1s2222]

Код:

1 2 3 4 5 6 7 8

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

[Adrenalin666]

о спасибо!

[Asinkrit]

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

Код:

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

Код:

1 2 3 4 5

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

[v1s2222]

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