Как изменить код?

Есть такой код, в ходе которого открывается файл ’data.txt’, последовательно считываются все его строки и в случае нахождения строки, содержащей значение ’value’, она целиком добавляется в memo1. Далее, по завершению цикла все содержимое memo1 записывается в этот же файл.

есть задача переформулировать условие, а именно, обойтись без добавления в memo1 вообще и при этом вырезать строки, не содержащие ’value’ (т.е., например, if pos (’value’,s) = 0 then delete(s,0,length(s)) и сохранить в этот же файл. Связано это с тем, что если файл содержит порядка миллиона строк, то пока выполняется программа, можно сходить ресторан, а если при таком же алгоритме использовать TStringList, - то и не в один. При этом причина наверняка не в построчном чтении исходного файла, т.к. проверено, если искомое значение содержится 100 000 раз – скорость одна (медленная), а если, например, 10 000 – совершенно другая (намного бодрее). Т.е. readln можно не трогать. При этом речь не идёт о допотопном компе и системе – Intel 3,2 ГГц, 504 Мб ОЗУ, Винда ХР SP2. Как правильно изменить программу?

0

Пиши сразу во временный файл, по окончании основной файл удаляй, а временный переименовывай.

1

Arustarh Dark, просто супер! всё гениальное просто - скорость возросла колоссально! Теперь даже прогрессбар больше дело тормозит )), но я знаю как с этим справиться

0