Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c