Danke schonmal für die Hilfe, komme aber irgendwie trotzdem nicht weiter habe folgenden Quellcode hier im Forum gefunden und wenn ich das Testen will kommen Fehler
Code:
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;