Zahlen zerlegen

[Medium]

Dann aber so:

Delphi-Quellcode:

type
  TDigitPosition = 1..10; // Da sollte die Bereichsprüfung zuschlagen
  TDecimalDigit = 0..9; // Einfach ums abzurunden :D

function getNthDigit(Number: UInt; N: TDigitPosition): TDecimalDigit;
begin
  Result := (Number div Integer(Power(10, N-1))) mod 10;  // Cast ggf. nicht nötig, weiss gerade nicht ob's ne Int-Überladung gibt
end;