Работа с файлами в Delphi
А не проще второй файл создать и писать в него все, кроме удаляемых строк, а потом его переименовать в исходный?
Нет такой функции. Тебе нужно новый файл создавать и копировать туда то, что нужно.
Как раз об этом подумал, когда отослал пост 
Делай через TStringList...
var
StrFile:TStringList;
S:string;
begin
StrFile:=TStringList.Create;
StrFile.LoadFromFile('mytext.txt');
while i<StrFile.Count do begin
S:=StrFile<i>;
if S[1] = '$' then StrFile.Delete(I)
else inc(i);
end;
StrFile.SaveToFile('newtext.txt');
end
var
StrFile:TStringList;
S:string;
begin
StrFile:=TStringList.Create;
StrFile.LoadFromFile('mytext.txt');
while i<StrFile.Count do begin
S:=StrFile<i>;
if S[1] = '$' then StrFile.Delete(I)
else inc(i);
end;
StrFile.SaveToFile('newtext.txt');
end
Оставить комментарий
max77
Два года не сидел за Делфи, вот теперь даже книжки не помогаютВопрос такой: читаю файл, сравниваю первый символ строки с заданным символом. Есди совпадение - нужно удалить строку. Какая функция это делает (удаляет из файла)?