Zahlen zerlegen

[Aphton]

Zitat von 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;

Nein, also ja, so gehts zwar auch, aber dafür brauchste "Power".. Für meine Variante brauchste nichts - daher ist sie auch anfängerfreundlicher (hab ingame kB gehabt, der Person zu erklären, dass Math noch eingebunden werden muss usw..)