Удаление строки

[Minton87]

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

вот, что родил я...

procedure TForm1.Button3Click(Sender: TObject);
var
f1:textfile;
s1:string;

begin
AssignFile(f1, edit2.Text);
Append(f1);
while not EoF(f1) do
begin
readln(f1, s1);

delete(s1,Pos('virus',s1),10);
Flush(f1);
closefile(f1) ;

end;

Все это чудо запускается, но!

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 104'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

стрелка указывает на while not EoF(f1) do

заранее благодарен за помощь!

[Sergey2]

TStringList.LoadFromFile
TStringList.Delete[i]
TStringList.SaveFromFile

[Minton87]

увы, я дилетант... навык минимален.. чуть-чуть русского текста в объяснение пожалуйста.

[Виталий Серов]

Сначала надо обьявить переменную

Data:TStringList;

Затем выделить память

Data:=TStringList.Create;

Потом загрузить из файла

Data.LoadFromFile(путь)

Удалить строку (номер i)

Data.Delete[i]

Сохранить в фаил

Data.SaveFromFile(путь)

[Виталий Серов]

Если надо найти строчку с определённым текстом, то как я понимаю ставят цикл примерно такой.

i := 0;
while not (i == Data.Count) do begin
If Data.Find('искомый текст', i) then  Data.Delete[i];
i := i + 1;
end;

Хотя я могу ошибаться, возможно существуют более "прямые" способы