cantidad de dígitos de la parte entera de un Real

[Ledian_Fdez]

Holas amigotes de este foro:

Existirá otra forma matemáticamente de crear una función dado un numero real, devolverme la cantidad de dígitos de la parte entera:

ej: 246.89 -> R/ 3

Código Delphi [-]
function LenghtParteEntera(numero:Real):integer;
var
 cont : Integer;
begin
 cont := 1;
 while numero > 10 do
   begin
    numero := Numero/10;
    Inc(cont);
   end;
 Result := cont;
end;

gracias de antemano,
salu2,
Ledian