Удалить из файла все строки содержащие 3 и 5

[hon]

Как удалить из файла все строки, содержащие цифры 3 и/или 5?

Примеры:
Исходный файл:

1
2
3
4
5
55
35

Новый файл:

1
2
4

[Stilet]

На правах примера:

program Project1;

{$APPTYPE CONSOLE}

uses    classes,
  SysUtils;
var s:TStringList;i:integer;


begin
 s:=TStringList.Create;
 s.LoadFromFile('File.mio');

 for i:=s.Count-1 to 0 do
  if (pos('3',s[i])<>0)or(pos('5',s[i])<>0) then s.Delete(i);
 s.SaveToFile('File.mio');
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

ну, я бы советовал строго придерживаться правила: "Что ручками создал, то ручками и удаляй!"

т.е. в конце, после сохранения файла либо

s.Free;

либо

FreeAndNil(s);

[hon]

Stilet, файл не изменяется, а строка

  if (pos('3',s[i])<>0)or(pos('5',s[i])<>0) then s.Delete(i);

вообще не выпоняется

[Аватар]

А использовать полный путь при чтении файла и записи в него

[hon]

Сообщение от Аватар

А использовать полный путь при чтении файла и записи в него

Так я и пишу полный типа
E:\test_test.txt

[Аватар]

for i:=s.Count-1 downto 0 do

[Hacker19_90]

Сообщение от hon

Stilet, файл не изменяется, а строка

  if (pos('3',s[i])<>0)or(pos('5',s[i])<>0) then s.Delete(i);

вообще не выпоняется

а вы цикл исправили??
Вот тут смотрите

for i:=s.Count-1 to 0 do
  if (pos('3',s[i])<>0)or(pos('5',s[i])<>0) then s.Delete(i);
 s.SaveToFile('File.mio');

Поэтому строчка и не выполняется
измените вот так

for i:=s.Count-1 downto 0 do

[Hacker19_90]

Браво Аватар +1 за скорость!

[Stilet]

for i:=s.Count-1 to 0 do

ОЙ!!! Дважды лоханулся... Приношу извинения