split, aber wie ?

[marabu]

Hier noch ein anderer Ansatz:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: String;
  index, value: Integer;
begin
  s := '13a';
  Val(s, value, index);
  s := Trim(Copy(s, index, MaxInt));
  ShowMessage(Format('Klasse %d %s', [value, s]));
end;

Grüße vom marabu