var
acumulador,r:integer;
begin
acumulador:=0;
while numero>0 do
begin
r:=numero mod 10;
Inc(acumulador); //acumulador:=acumulador+1;
numero:=numero div 10;
end;
Result:=acumulador;
end;
forma de llamar a la función :
begin
edit1.Text:=inttostr(form1.numero_digitos(strtoint(edit1.Text)));
end;
Otra Forma mas Sencilla :
function cantidad_digitos: integer;
begin
result:=trunc((ln(valor)/ln(10))+1);
end;
forma de llamar a la función :
begin
edit1.Text:=inttostr(form1.cantidad_digitos);
end;
begin
edit1.Text:=inttostr(form1.cantidad_digitos);
end;
No hay comentarios:
Publicar un comentario