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?