Line delete?

← →
Rentgen (2004-02-28 08:44) [0]

Здарствуйте уважаемые мастера.
Ни как не могу решить вроде простую задачу:
Как удалить строку из текстового файла?

AssignFile(F,fname); Reset(F); while not EOF(F) do begin ReadLn(F,S); if s="Stroka" then begin ??? End; End;

← →
SergP (2004-02-28 09:05) [1]

А если так:?

procedure TForm1.Button1Click(Sender: TObject);
var
sl:TstringList;
index:integer;
begin
sl:=TstringList.Create;
sl.LoadFromFile("myfile.txt");
index:=sl.IndexOf("Stroka");
if index>=0 then sl.Delete(index);
sl.SaveToFile("myfile.txt");
sl.Free;
end;

← →
SergP (2004-02-28 09:13) [2]

SergP © (28.02.04 09:05)

правда она только удаляет первую из таких строк. Если нужно удалить их все, то наверное так должно быть:

procedure TForm1.Button1Click(Sender: TObject);
var
sl:TstringList;
begin
sl:=TstringList.Create;
sl.LoadFromFile("myfile.txt");
while sl.IndexOf("Stroka")>=0 do sl.Delete(sl.IndexOf("Stroka"));
sl.SaveToFile("myfile.txt");
sl.Free;
end;

← →
Rentgen (2004-02-28 09:20) [3]

Идея интересная. Спасибо.

Line delete? Найти похожие ветки