Как удалить строку в текстовом файле?

← →
ambhtr (2007-05-31 14:57) [0]

Открываю файл. Прохожу его построчно. Проверяю каждую строку на содержание символа (например "*"). Если знак имеется в строке, эту строку из файла нужно удалить.
Так как можно удалить строку из текстового файла?

← →
Джо © (2007-05-31 15:00) [1]

Самое простое — использовать TStringList.

← →
Сергей М. © (2007-05-31 15:01) [2]

> как можно удалить строку из текстового файла?

Оч просто - создав одноименный файл, содержимое которого не содержит этой строки.

← →
Palladin © (2007-05-31 15:02) [3]

Var f1,f2:Text; s:String; Begin AssignFile(f1,<file1>); Reset(f1); AssignFile(f2,"tmp"); Rewrite(f2); While Not Eof(f1) Do Begin Readln(f1,s); If Pos("*",s)<>0 Then WriteLn(f2,s); End; CloseFile(f1); CloseFile(f2); DeleteFile(<file1>); Rename(f2,<file1>); End;

> If Pos("*",s)<>0 Then WriteLn(f2,s);

Тогда уж "=", по условиям задачи :-)

точно... обшибся...

Как удалить строку в текстовом файле? Найти похожие ветки