Einer, Zehner, Hunderter Stellen ablesen

[C00D3R4TIV]

Halle Leute,

ich würde gerne die E,Z,H stellen eines Integer ablesen.

jedoch!

beginnt die Zahl unter 10, sprich nur mit einer Einerstelle und wird mit der Zeit größer,
ab wann es eine Z, H Stelle besitzt ist nicht gegeben.
Der Wert wird nicht konstant ansteigen und könnte auch niedriger werden.

habt ihr da Vorschläge für mich ?
bis jetzt würde ich es so machen das ich mit einer

if X<10 then begin E end else

if X<100 then begin Z E end else

if X<1000 then begin H Z E end;

ich bin jedoch überzeugt das es noch einfacher geht

[Sir Rufo]

Versuch es mal so:

Delphi-Quellcode:

E := X div 1 mod 10;
Z := X div 10 mod 10;
H := X div 100 mod 10;