Percentual

[marvazoler 0]

Ola galera beleza?

 

Gostaria de uma ajuda simples,

tenho um codigo que esta funcionando e gostaria de tirar o percetual.

 

Olhem isso:

 

procedure Tfrm_validadores.Timer2Timer(Sender: TObject);

var
 i, j: integer;
 i_, j_: integer;
begin
 j := 0;
 j_ := 0;

 for i:=0 to ComponentCount -1 do
   begin
     if Components[i] is TPanel then
       if (Components[i] as TPanel).visible then
         Inc(j);
   end;
   label2.Caption := IntToStr(j);

 for i_:=0 to ComponentCount -1 do
   begin
     if Components[i_] is TPanel then
       if ((Components[i_] as TPanel).color =clYellow) and (Components[i_] as TPanel).visible then
         Inc(j_);
   end;
   label3.Caption := IntToStr(j_);
   percentual:= ((label3)IntToStr / IntToStr(label2)) * 100;

  como ficaria a escrita para mostrar o percetual?


end;

 

 

 

Desde ja agradeco

[bdexterholland 0]

Explique melhor sobre o que voce quer tirar o percentual...