Saludos brothers tengo q hacer prog q calcula calor pero por paredes exteriores, interiores , techo, piso.. cada uno puede estar compuesto de max 4 materiales de diferentes tipos (ya esta parte lo sé.. la cosa por ejemplo es que de el peso y resistencia de Paredes exteriores (Ppe, Rpe), Interiores (Ppi, Rpi), techo (Pti, Rti) y piso (psi, rsi)...
osea quiero saber como hacer para q el contador de Ppe y el de Rpe sume desde la combobox1 hasta la 4, Ppi y Rpi sume desde la 5 hasta la 9 y asi.. porque despues los usare para las diferentes formulas de calor. Y al final varios labels que diran el calor por paredes, otra para techo y asi...
Código Delphi
[-]ppe:= 0;
Rpe:= 0;
Ape:= StrToFloat(Edit1.Text)
for i:= 0 to ComponentCount -1 do
if Components[i].ClassType = TComboBox then
with TComboBox(Components[i]) do
if ItemIndex <> -1 then begin
ppe:= ppe + Material[ItemIndex].VPeso;
Rpe:= Rpe + Material[ItemIndex].VResist;
end;
Qpe:= Ape*ppe*(1/Rpe)*Dpe