Не пойму где проблема с FileExist

[Fakov]

Доброй ночи гуру кодинга.

Есть следующая задача:
при нажатии кнопки на форме проверить - если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста. Если файл не существует - то создать его и заполнить текстом.

Решение ниже:

preload:TextFile;

При нажатии клавиши:

AssignFile(preload, 'C:\Program Files\wtf.txt');
if not FileExists('C:\Program Files\wtf.txt') then CreateFilepr else AddFilepr;

и две процедуры

procedure TForm1.AddFilepr;
begin
  reset(preload);
  seekeoln(preload);
  seekeoln(preload);
  Writeln (preload,'call SetPlayerTechMaxAllowed(Player(15),'+'1'+','+'test'+')');
  CloseFile(preload);
end;

procedure TForm1.CreateFilepr;
 begin
      Rewrite(preload);
      Writeln (preload,'function PreloadFiles takes nothing returns nothing');
      Writeln (preload,'call Preload( "")');
      Writeln (preload,'call SetPlayerTechMaxAllowed(Player(15),'+'1'+','+'testCode'+')');
      Writeln (preload,'call Preload( "")');
      Writeln (preload,'endfunction');
      Writeln (preload,'function recyclebin takes nothing returns nothing');
      Writeln (preload,'call PreloadEnd( 0.0 )');
      Writeln (preload,'endfunction');
      CloseFile(preload);
  end;

Результат: задача не выполняется. Файл не создается а если и создается(после небольшой правки кода) - то информация не добавляется как надо. Помогите пожалуйста решить проблему и разобраться что тут не так =\

[Delphi_ProGer]

Вариант, конечно, не такой, как у Вас, но работать будет.
А суть в том, чтобы использовать TstringList.
Создаете обект Списка строк.
Проверяете сначала, есть ли такой файл.
Методом LoadFromFile загружаете текст. Без проблем добавляете нужные строки, а потом SaveToFile('путь').
Думаю, проблем не должно быть, но я не знаю, подойдет ли Вам такой варинт.

[Fakov]

спасибо за вариант, а пример как его использовать есть? или хотя бы ссылку на конкретную схему?)

[Delphi_ProGer]

Как то так...

var
 lst: TStringList;
begin
lst:=TstringList.Create;
lst.LoadFromFile('...');
lst.Insert(2, 'Ваш_текст');
lst.SaveToFile('...');
lst.free;
end;

[Fakov]

ну то есть получается программа будет дейтстовать с файлом не "снаружи" а "внтури" себя скажем так?

[Delphi_ProGer]

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

ну то есть получается программа будет дейтстовать с файлом не "снаружи" а "внтури" себя скажем так?

Емс...что-то не понял, что Вы представяете под этими словами

[Fakov]

братцы, еще какие нибудь варианты решения задачи есть?

[eoln]

Файл должен нормально создаваться (если пути существуют).
В текстовый файл добавляют не через reset, а через append (если не требуется что-то сверхъестественное)

[Fakov]

файл создал. магическими танцами, но создал, как положено. Проблема сместилась: повторное обращение к файлу для добавления строки процедурой AddFilepr вызывает сначала i\o error 104 а потом меняет на i\o error 32. Поиск по гуглу проблему не конкретизировал, в чем сейчас ошибка?

Изменил только проверку существования файла:

AssignFile(preload, 'C:\Program Files\wtf.txt');
if FileExists('C:\Program Files\wtf.txt') then  AddFilepr else CreateFilepr;

[Stilet]

для добавления строки

Тогда нужно не reset() а Append() чтоб открыть файл для добавления