Nimm diese Funktion und rufe diese in einer For_Schleife auf oder in einem repeat...until Block auf :
Delphi-Quellcode:
function PosN(Substring, Mainstring: string; n: Integer): Integer;
begin
if Pos(substring, mainstring) = 0 then begin
posn := 0;
Exit;
end else begin
if n = 1 then posn := Pos(substring, mainstring)
else begin
posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring,
(Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);
end;
end;
end;
Diese Funktion gibt Dir die Position des Suchstrings aus. Wird der Suchstring nicht gefunden ist das Ergebnis 0.