Aus Integer-Wert bestimmte Stelle extrahieren

[SirThornberry]

bei der vem von phreax verwendeten Aufruf geht es auch noch so (ohne if):

Delphi-Quellcode:

function GetDigit(Int, Digit: Integer): Integer;
begin
  result := Int mod (Digit * 10) div Digit;
end;

Wenn man also von 101125 die 5 haben will muss man 1 übergeben, wenn man die 2 haben will 10, wenn man die 0 haben will 10000.