[Mick]

Una forma sencilla de implementar seria:

Código Delphi [-]
function cifras(n:integer):integer;
begin
  Result:= 0;
  repeat
    n:= n div 10;
    Inc(Result);
  until n=0;
end;

Saludos