Boing. Falscher gehts kaum, mkinzler.
Zitat:
Delphi-Quellcode:
p := 0;
for i := 1 to 4 do
p := PosEx( ',', s, p);
Das muss heißen:
Delphi-Quellcode:
p := 1;
for i := 1 to 4 do
p := PosEx( ',', s, p+1);
Sonst wird beim ersten mal Null zurückgegeben, weil der Offset Null ist, und wenn man das behoben hat, wird jedesmal das gleiche gefunden, deshalb p+1.