Indem du keine fest For-Schleife verwendets, sondern z.B. über eine While-Schleife solange den String abarbeitest, bis er leer ist und dabei natürlich mitzählst.
PS: Mithilfe einer TStringList kann man auch über einen Seperator (in deinem Fall das ; ) strings zerlegen lassen
und ich glaub in der CodeLib gibt es auch schon einige fertige Klassen und Funktionen für solche Aufgaben.
Zitat von
Cogito:
kann ich mir mittels Angabe Parse(';', s, 2) den zweiten Wert zurückgeben lassen.
Dann ist aber der Parameter "Count" irreführend beschrieben "Index", "Position" oder so ähnlich wäre da besser, da es ja nicht die "Anzahl", sondern eine "Position" angibt.