Aus Integer-Wert bestimmte Stelle extrahieren

[phreax]

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