PosEx

[youuu]

Hi,

ich hab eine Frage zu PosEx und zwar wie kann ich direkt an das letzte ";" springen?

Beispiel

Delphi-Quellcode:

s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos(';', s);
if Pos1 <> 0 then  // erstes Semikolon gefunden
begin
  // Position des zweiten Semikolons ermitteln;
  // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
  Pos2 := PosEx(';', s, Pos1 + 1);  
  if Pos2 <> 0 then
    ShowMessage('gefunden an Position: '  + IntToStr(Pos2))
  else
    ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;

Gut nun könnte ich Pos für Pos alles durch gehen, aber wenn ich gar nicht weiß wieviel ";" im Text sind, wie kann ich dann zum letzten oder z.B vorletzen ";" springen?