split, aber wie ?

[Klaus01]

Hallo,

ich stelle mit das ungefähr so vor:

Delphi-Quellcode:

i:=1
found :=false;
s:=LabeledEditklasse.Text;
while (not found) and (i < length(s)) do
  begin
    if s[i] not in ['0'..'9'] then
      begin
        found:=true;
        Schuelerfeld[i].stufe := StrToInt(copy(s,1,i-1));
        Schuelerfeld[i].klasse := copy(s,i,length(s)-i);
      end
    else
      inc(i);
  end;

Grüße
Klaus