Wie kann ich nach einem String den nächsten 'sehen'

[Basic-Master]

Hi,
das geht wenn du mit copy+pos arbeitest:

Delphi-Quellcode:

var a,b,c:integer;
   s, temp, suche:string;
begin
a := 0;
s := 'das hier ist ein toller test. hier isser.';
temp := s;
suche := 'hier';
for a := 1 to length(s) do begin
  c := pos(suche, temp);
  if c <> 0 then begin
  b := length(s) - length(temp);
  showmessage('An Position "' + inttostr(c + b) + '" ist ein "' + suche + '".');
  temp :=  copy(temp, c + length(suche), length(temp));
  end;
end;