Nummer zu String, die zweite

[neolithos]

Kleiner TIP:

Delphi-Quellcode:

TNumber = record
  fNumbers : [0..9] of PNumber;
    // pNumber = nil wenn keine Weitere Verzweigungen
  dwAlpha : Cardinal;
    // Wenn Bit gesetzt dieser Buchstabe gesetzt
end;

So ungefähr! Aber nicht bis ins letzte durchdacht!