Zahlen zerlegen

[Aphton]

Delphi-Quellcode:

function getNthDigit(Number: UInt; N: Byte): Integer;
begin
  if N > 10 then // "4294967296" ist 2^31 (größte Zahl) und hat 10 Stellen
    Result := -1 // Fehler
  else
  begin
    while N > 1 do
    begin
      Number := Number div 10;
      dec(N);
    end;
    Result := Number mod 10;
  end;
end;

Nicht getestet, ingame geschrieben!