|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Тут уже предлагали использовать TStringList, при работе с текстом самый оптимальный вариант, дело в том что весь текст из *.txt грузится в оперативную память и дальнейшие процессы проходят там.
Код:
//s1 - исходный текст //s2 - отредактированы repeat a := Pos('..',s1); if a > 0 then begin s2 := s2 + copy(s1,1,a-1) + '.'; deletestr(s1,1,a); end; until until a = 0; |