Código Delphi [-]procedure TForm1.BitBtn1Click(Sender: TObject); VAR Hayventn : integer; Begin Hayvents:=Combobox8.ItemIndex; If Hayvents=0 Then Begin Qcvsj:= 1.136*Anvs*Bavs*(Tbsecnj-Tbsi); end Else Qcvsj:=0; end; end;
procedure TForm1.BitBtn1Click(Sender: TObject); VAR Hayventn : integer; Begin Hayvents:=Combobox8.ItemIndex; If Hayvents=0 Then Begin Qcvsj:= 1.136*Anvs*Bavs*(Tbsecnj-Tbsi); end Else Qcvsj:=0; end; end;