|
Registriert seit: 1. Mai 2006
Ort: Dresden
147 Beiträge
Turbo Delphi für Win32
|
Re: Aus Integer-Wert bestimmte Stelle extrahieren
6. Jul 2007, 13:35
Hallo ibp,
probier mal das hier:
müsste eigentlich recht perfomant sein, jedenfalls performanter als die string version... 
Delphi-Quellcode:
function GetDigit(Int, Digit: Integer): Integer;
begin
Result := Int Mod (Digit * 10);
if digit > 10 then
Result := Result- (Int mod (Digit div 10));
Result := Result div Digit;
end;
//Beispielaufruf
ShowMessage(inttostr(GetDigit(0101125,10)));
Digit muss die Stelle sein also zum Bsp 10er 100er usw...
mfg phreax
Und dann war da noch der junge Mann ....
... der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr, er verfasst heute die Fehlermeldungen bei Microsoft!
|