Поиск в TMemo

← →
VDen © (2002-06-26 16:42) [0]

Функция Pos находит первое вхождение подстроки в строку, а как определить все последующие?

← →
Song © (2002-06-27 09:05) [1]

Присвоить Memo.Lines.Text в промежуточную перемеенную, искать по ней, после поиска каждого последующего форагмента удалять найденный, пока поиск не закончится ( While Pos(..)>0 Do ... )

← →
MAxiMum © (2002-06-27 10:51) [2]

Можно, но долго. Лучше "руками", сам посимвольно проверяешь Memo.Lines.Text и сравниваешь.

или можно так
n:=n+pos(substr,copy(memo1.text,n+1,length(memo1.text)))

но как он будет себя вести при больших объемах я не знаю...

Поиск в TMemo Найти похожие ветки