die funktion müsste in etwa so aussehen:
Delphi-Quellcode:
function GetStringPart(AWholeString: String; var AFrom: Integer; out AExtractedPart: String): Boolean;
begin
//von AFrom aus in AWholeString das nächste Semikolon suchen.
//Wenn eins gefunden wurde dann den Teil zwischen AFrom und der Fundstelle zurück geben. Und natürlich AFrom auf eins hinter der letzten Fundestelle setzen
end;
oder du nimmst einfach die Funktion SplitOutIndex aus folgendem Beitrag:
http://www.delphipraxis.net/internal...=205244#205244
wobei diese Funktion eben immer von Anfang an sucht. Schneller ist wie oben beschrieben die letzte fundstelle anzugeben von der aus gesucht werden soll