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

[defcon1_es]

Se me ocurre esta otra:

Código Delphi [-]
function LenghtParteEntera(numero:Real):integer; 
begin  
  Result := Length(IntToStr(Trunc(numero)));
end;

[rgstuamigo]

Código Delphi [-]
Uses Math;
.... 
function LenghtParteEntera(numero: Real): integer;
begin
Result:=Trunc(Log10(numero))+1;
end;

.
Saludos...