pos искал далее

[alman12]

как сделать чтобы pos искал далее а не показывал первую найденную строку ?

[BDA]

Может быть, не изобретать велосипед, а пользоваться PosEx?

[alman12]

Posex тоже показывает первую найденную

[Shouldercannon]

Искать в цикле

while Pos('что', 'где-то') > 0 then
далее счётчик какой-нибудь увеличивать и переходить к следующей позиции либо удалять часть строки

[alman12]

while тоже показывает первую найденную

[Alex11223]

while ничего не показывает, он делает то, что вы написали.

[alman12]

var t,j:string;
o,i:integer;
begin
t:=edit1.Text;;
j:='1';
for i := 0 to length(t)-1 do
begin
If Pos(j, t)>0 then

Edit1.SelStart:=Pos(j, t)-1;
Edit1.SelLength:=Length(j);
Edit1.SetFocus;
end;
end;

[alman12]

с while тоже выделится первая найденная

[Аватар]

Posex тоже показывает первую найденную

Угу, но после указанной позиции. В цикле для следующего шага нужно увеличить второй параметр так, что бы поиск шел после найденного на предыдущем шаге. Тоды и будет следующее и последующее и так до бесконечности ))

[alman12]

как увеличить ?