|
Registriert seit: 23. Jan 2008
3.686 Beiträge
Delphi 2007 Enterprise
|
AW: Zahlen zerlegen
11. Okt 2013, 01:16
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;
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
Geändert von Medium (11. Okt 2013 um 01:24 Uhr)
|