"Zeichen" im Integer

[Eichhoernchen]

wie wärs mit dem 10er Logarithmus?

Delphi-Quellcode:

uses math;

{...}

function GetDigitLength(x: integer): integer;
begin
 if x <> 0 then
   result := trunc(1+Log10(abs(x)));
end;