Работа с файлами. [D6, Win95/98]
XPatriot © (2001-12-21 14:50:00)
Как реализовать чтение построчно, из текстового файла, и при
нахождении нужной строки вставить после нее текст, не удоляя
следущий....
MBo (2001-12-21 15:13:00) [1]
проще всего так
var s:tstringlist;
i:integer;
begin
s:=tstringlist.create;
s.loadfromfile("c:\qq.txt");
for i:=0 to s.count-1 do
if pos(chegoto,s[i])>0 then s[i]:=s[i]+texttoinsert;
//если надо новую строку, подправь, но не забудь, что Count
увеличится -
//тогда лучше не for а while
s.savetofile("c:\qq.txt");//если в тот же файл
s.free;
Наверх 
ЧАТ |
Орешник |
|
