Get number digits

[DeddyH]

Something like this?

Delphi-Quellcode:

function GetDigit(Number: Int64; Index: Byte): Byte;
var
  temp: int64;
  i, CountDigits: byte;
begin
  temp := Number;
  CountDigits := 0;
  (* Retrieve total count of digits in Number *)
  while temp > 0 do
    begin
      temp := temp div 10;
      inc(CountDigits);
    end;
  (* Divide by 10 until Index is on the right *)
  for i := 1 to CountDigits - Index do
    Number := Number div 10;
  Result := Number mod 10;
end;