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

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:

function LenghtParteEntera(numero:Real):integer;
begin
Result := Length(IntToStr(Trunc(numero)));
end;

[rgstuamigo]

Uses Math;
....
function LenghtParteEntera(numero: Real): integer;
begin
Result:=Trunc(Log10(numero))+1;
end;

;);).
Saludos...:)