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..)