Удаление файла

[victor5133]

Здравствуйте. У меня вот такая проблема:

Мне нужно в файле найти нужную строку и удалить ее.
Я вот так делаю. Сначала кидаю все что в файле в мемо, потом нахожу строку и удаляю ее. Потом удаляю сам файл и создаю новый и заполняю всем тем что в мемо. Но он всегда последнюю строчку только на половину записывает в файл. Как это исправить? Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
k,n:integer;
s,d:string;
begin
assignFile(f,'text.txt');
reset(f);
While not Eof(f) do
begin
readln(f,d);
form2.Memo4.Lines.Append(d);
end;
CloseFile(f);
erase(f);
for k:=0 to Form2.Memo4.Lines.Count-1 do
begin
d:=form2.Memo4.Lines[k];
if d=s then Form2.Memo4.Lines[k]:='';
end;
assignFile(f,'text.txt');
rewrite(f);
CloseFile(f);
assignFile(f,'text.txt');
append(f);
for k:=0 to form2.Memo4.Lines.Count-1 do
begin
if form2.Memo4.Lines[k]<>'' then writeln(f,form2.Memo4.Lines[k]);
end;
end.

Спасибо.

У нас принято оформлять код специальным тегом. Кнопка #.
Модератор

[ZuBy]

используй TStringList + IndexOfString + Delete
и записывай в тот же файл

[Прик]

procedure TForm1.Button1Click(Sender: TObject);
var 
  SL : TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('text.txt');
    k := 0;
    while k <= SL.Count-1 do begin
      if SL[k] = '' then
        SL.Delete(k)
      else
        Inc(k);
    end;
    SL.SaveToFile('text.txt');
  finally
    SL.Free;
  end;
end;

[victor5133]

Все понял) Спасибо.