Einer, Zehner, Hunderter Stellen ablesen

[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;