pos искал далее

[Аватар]

Ну помести туда найденную позицию увеличенную на 1 или лучше на длину поисковой строки из предыдущего шага. Вот примерчик

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
    i,k: Integer;
begin
  s:='F12FSKS2LBK1JH HK12LHLKSBNBN 12LKJLK12';
  k:=1;
  i:=PosEx('12',s,k);
  while i>0 do begin
    Memo1.Lines.Add(IntToStr(i));
    k:=i+2;
    i:=PosEx('12',s,k);
  end;
end;

[alman12]

не получается

[Аватар]

не получается

сочувствую

[alman12]

не работает твой код выделяет других 5 ,6 символов и цикл не работает

[Serge_Bliznykov]

всё так работает. Это Вы просто не понимаете, что и как надо в коде писать.


Давайте ещё раз.
С начала.
Вот, если Вам нужно искать и выделять один символ,
то попробуйте код:

procedure TForm1.Button2Click(Sender: TObject);
var
  t : string;
  i, k : integer;
begin
  t:=edit1.Text;;
  k:=Edit1.SelStart;
  if Edit1.SelLength>0 then Inc(k);
  if k>=Length(t) then k:=0;
  for i := k+1 to length(t) do
  begin
   If t[i] = '1' then begin
     Edit1.SetFocus;
     Edit1.SelStart:=i-1;
     Edit1.SelLength:=1;
     Exit
   end;
  end;
end;

Всё работает?

[alman12]

Спасибо большое