Текущий архив: 2004.03.14;
Скачать: 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 вся ветка
Текущий архив: 2004.03.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
