da der Code vom Marabu der bessere ist:
Delphi-Quellcode:
Val(s, value, index);
s := Trim(Copy(s, index, MaxInt));
Schuelerfeld[i].stufe := value;
Schuelerfeld[i].klasse := s;
zum besseren Verständnis:
ShowMessage(Format('Klasse %d %s', [value, s]));
%d korrespondiert mit value und stellt einen Dezimalwert dar
%s korrespondiert mit s und stellt einen String dar.
%d und %s sind keine Variablen, sondern stellen einen Platzhalter
in der Formatanweisung dar.
und
if LabeledEditklasse.Text[1] [...]
sollte auch gehen.
Grüße
Klaus