Problem mit Pos()

[pszopp]

Hallo Ramox,

so wie es aussieht hast du dir eine Endlos-Schleife gebaut.
Die Variable "helpstr" bleibt ja innerhalb der while-Schleife konstant.
Wenn also die Bedingung am Start der Schleife true ist, wird sie immer true bleiben.
Hier mein Vorschlag:

Delphi-Quellcode:

procedure Split1(aValue : string);
begin
  while Pos('#', aValue) > 0 do
  begin
    // Integer-Wert kopieren
    win[j] := StrToInt(Copy(aValue, 1, Pos('#', aValue) - 1));
    // Integer-Wert aus der Variablen entfernen.
    aValue := Copy(aValue, Pos('#', aValue) + 1, MaxInt);
  end;
end;

!!Dabei ist jedoch zu beachten, dass die letzte Zahl nur übernommen wird, falls sie mit # abgeschlossen wird!!

Viele Grüße,
pszopp