Добавление строчки в текстовый файл

[nolz]

имеется следуюший кусок кода

procedure TForm2.Button1Click(Sender: TObject);
var
f:textfile;
s:string;
begin
assignfile(f,'data\prov.qxt');
reset(f,s);
rewrite(f);
s:=edit1.Text+edit2.Text+edit3.Text ;
writeln(f,'data\prov.qxt',s);
closefile(f);
end;

prov.qxt это текстовый файл
при компиляции всё хорошо, а вот когда скомпеленная программа должна записать строку s в файл f вылазиет ошибка I/O error 105,
в чём причина такой ошибки?

[ОДИНОЧЕСТВО В СЕТИ]

либо

reset(f);

либо

rewrite(f);

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

[Neeter]

Ну и зачем же вы открываете файл сначала для чтения и записи (reset), а потом очищаете и открываете только для записи (rewrite)?
Выбирайте что-нибудь одно. В вашем случае надо оставить только reset.
Да и параметр у reset только один. И с writeln напортачили.
Еще, не плохо бы сделать проверку на исключительные ситуации (try..finally..end можете посмотреть в google)
Путь к файлу тоже немного исправить надо.

procedure TForm2.Button1Click(Sender: TObject);
var
 f: textfile;
 s: string;
begin
 assignfile(f, ExtractFilePath(ParamStr(0)) + 'data\prov.qxt');
 try
  reset(f);
  s := edit1.Text + edit2.Text + edit3.Text;
  writeln(f, s);
 finally
  closefile(f);
 end;
end;

Не плохо бы вам почитать книжечку по Delphi...

[nolz]

Neeter, спасибо за совет, учту.
Но в том коде что вы предложили возникает точно такая же ошибка.

[FaTaL]

Для работы с текстовыми файлами лучше использовать TStringList

[Neeter]

Ну... Попробуйте что ли вот так:

procedure TForm2.Button1Click(Sender: TObject);
var
 f: textfile;
 s: string;
begin
 assignfile(f, ExtractFilePath(ParamStr(0)) + 'data\prov.qxt');
 try
  FileMode := fmOpenWrite;
  reset(f);
  s := edit1.Text + edit2.Text + edit3.Text;
  writeln(f, s);
 finally
  closefile(f);
 end;
end;

Или, на самом деле, послушайте совета FaTaL.

Вот:

procedure TForm2.Button1Click(Sender: TObject);
var
 f: TStings;
 s: string;
begin
 f := TStringList.Create;
 try
  f.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data\prov.qxt');
  s := edit1.Text + edit2.Text + edit3.Text;
  f.Add(s);
  f.SaveToFile(ExtractFilePath(ParamStr(0)) + 'data\prov.qxt');
 finally
  f.Free;
 end;
end;

[nolz]

всем спасибо
Параллельно возник другой вопрос, как теперь удалить определённую строчку в текстовом документе.
У меня есть предположение что через listbox, а потом перезаписать текстовый документ, но с алгоритмизацией проблемы.

[Neeter]

Параллельно возник другой вопрос, как теперь удалить определённую строчку в текстовом документе.
У меня есть предположение что через listbox, а потом перезаписать текстовый документ, но с алгоритмизацией проблемы.

Тоже через TStringList.
У него есть метод Delete, который удаляет строку. Параметр для метода: индекс нужной строчки.

[Serge_Bliznykov]

nolz возьмите пример из пост #6 (c) Neeter
только вместо добавления строки f.Add...
напишите f.Delete(Номер_Строки)
и всё....

___________________________________ _
добавлено уп-с... не успел...

[nolz]

если я всё правилно понял то это должно выглядеть так:

procedure TForm1.Button3Click(Sender: TObject);
var
f: TStrings;
s:string; n:integer;
begin
n:=listbox1.ItemIndex;
f := TStringList.Create;
try
f.LoadFromFile(ExtractFilePath(Para mStr(0)) + 'data\fio.qxt');
f.Delete(n+1);
finally
f.Free;
end;
end;

но удаление строки не происходит, что то не так?
И ещё вопрос нумерация строк в TStringLis идёт с 0 как в listbox или с 1?