Am effizientesten?
Code:
start = 1;
wiederhole
posG = Pos('G', Start);
Verlasse die Schleife, wenn posG = 0;
posKomma = Pos(',') ab PosG;
Zahl1 = TextZwischen(posG + 1, posKomma - 1);
posSemikolon =Pos(';') ab PosKomma;
Zahl2 = TextZwischen(posSemikolon + 1, posKomma2 - 1);
Start = posSemikolon + 1
Das ist aber nicht wirklich am effizientesten, aber dafür am einfachsten zu implementieren. Optimal geht das eigentlich nur mit einer Schleife und ein wenig Fallunterscheidung.