String in Zahlen und Zeichen zerlegen

[yörsch]

ungetestet!

Delphi-Quellcode:

  if StrToIntDef(RightStr(s,1),99) = 99 then
  begin
    // Letztes Zeichen ist ein Buchstabe
    c := RightStr(s,1)[1];
    i := strtoint(LeftStr(s,lenght(s)-1));
  end
  else
    begin
      i := strtoint(s)
      c := #13; // Default
    end;