Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Работа с файлами. 


XPatriot   (2001-12-21 14:50) [0]

Как реализовать чтение построчно, из текстового файла, и при
нахождении нужной строки вставить после нее текст, не удоляя следущий....



MBo   (2001-12-21 15:13) [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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.009 c
1-28474           Delphig               2001-12-22 02:32  2002.01.10  
Подсветка синтексиса? Например в HTML редакторе.


1-28458           Aleksandr             2001-12-21 14:33  2002.01.10  
Как корректно уничтожить из дестрактора компоненты ScrollBar


1-28456           Serg5                 2001-12-21 19:36  2002.01.10  
Знатоки, подскажите. плиз, как запретить ввод любых значений в StringGrid, кроме первой колонки. Т.е. остальные попросту у меня предназначенны для отображения результата.


1-28498           Dimedrol              2001-12-22 13:30  2002.01.10  
DLL вызывает процедуру в основной проге...


14-28544          Abajun                2001-11-16 09:38  2002.01.10  
Шифровка