Cita:
|
Empezado por DarkByte
Y cómo lo cambio a div?? me podrías arreglar el código??
|
Tan sencillo como esto:
Código:
var
Total : integer;
Porciento : integer;
begin
......
Total := strtoint(eTotal.Text);
......
Porciento := Trunc(Veces1.value) * 100 div Total;
Porcentaje.Caption := inttostr (Porciento)+"%";
El trunc lo he puesto por si el componente devuelve un real y no tiene una propiedad estilo AsInteger