Resumir tabla

[Chichero]

Código Delphi [-]
//Equipos
CASE Combobox1.ItemIndex OF
0,5: Begin
Qeq1:=500;
end;
1: Begin
Qeq1:=23;
end;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq1:=1000;
end;

CASE Combobox2.ItemIndex OF
0,5: Begin
Qeq2:=500;
1: Begin
Qeq2:=23;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq1:=1000;
end;
.
.
.
//Y asi hasta llegar al ultimo combobox (13)
CASE Combobox13.ItemIndex OF
0,5: Begin
Qeq13:=500;
1: Begin
Qeq13:=23;
.
.
.
//y asi hasta llegar al ultimo caso
26: Begin
Qeq13:=1000;
end;
Qte:= Qe1*ne1+Qe2*ne2+...+Qe3*ne3;

(supongase q todas las variables están declaradas)
nex: numero de equipos "X"
Ven que sería demasiado largo!!

[ecfisa]

Hola Chichero.

Si no entiendo mal tenes 13 elementos que pueden ser 27 tipos diferentes de artículos eléctricos.
Los tipos de artículos me imagino corresponderan con su gasto en Watts, calorias, o lo que sea. Pero la cantidad deberá corresponderse con el tipo. Es decir todos los tipos 5 consumirán lo mismo por ejemplo.

Entonces creo que se puede simplificar así:

Código Delphi [-]
{ Cargar los diferentes artículos con su consumo }
procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Items.AddObject('Cafetera',TObject(500));  // 500 watts
  ComboBox1.Items.AddObject('Heladera',TObject(1000)); // 1400 watts.
  ComboBox1.Items.AddObject('Notebook',TObject(450));
  ComboBox1.Items.AddObject('Fotocopiadora',TObject(1800));
  ComboBox1.Items.AddObject('Caloventor',TObject(1500));
  ComboBox1.Items.AddObject('Microoondas',TObject(1800));
  ComboBox1.Items.AddObject('Aire Acond.',TObject(2200));
  ... // 27 tipos
 
  ComboBox2.Items:= ComboBox1.Items;
  ComboBox3.Items:= ComboBox1.Items;
  ComboBox4.Items:= ComboBox1.Items; 
  ... 
  ComboBox13.Items:= comboBox1.Items;
 
end;

{ Mostrar la sumatoria de consumos de los equipos seleccionados }
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Watts: Integer;
begin
  Watts:= 0;
  for i:= 0 to ComponentCount -1 do
    if Components[i].ClassType = TComboBox then
      with TComboBox(Components[i]) do
        if ItemIndex <> -1 then
          Watts:= Watts + Integer(Items.Objects[ItemIndex]);
  Label1.Caption:= IntToStr(Watts);
end;
...

En el ejemplo, la variable Watts almacena la sumatoria del consumo de los equipos seleccionados en los combos y muestra el total en la etiqueta Label1.

Saludos.

[Chichero]

Hermano usted es un iluminado de verdad muchas gracias lo haré así! si sepudieran poner calificaciones positivas le pusiera 50!

[Chichero]

Otra pregunta brother, sí son dos valores por cada item (osea un calor sensible y uno latente), sería TObject1]y TObject2?? y claro otro watts2

[Chichero]

osea q watts1 sume el sensible y watts2 sume el latente

[ecfisa]

Hola.

No, no es posible hacer:

Código Delphi [-]
ComboBox1.Items.AddObject('aaa', TObject(x), TObject(y));

En ese caso creo que deberías usar un arreglo de registros, algo como:

Código Delphi [-]
...
implementation
type
  TRegConsumo = record
    VSensible: Integer;
    VLatente: Integer;
  end;
var
  Consumo: array [0..26] of TRegConsumo;

procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Add('Cafetera');
  Consumo[0].VSensible:= 500;
  Consumo[0].VLatente:= 700;

  ComboBox1.Items.Add('Heladera');
  Consumo[1].VSensible:= 1000;
  Consumo[1].VLatente:= 1200;

  ComboBox1.Items.Add('Notebook');
  Consumo[2].VSensible:= 450;
  Consumo[2].VLatente:= 500;
  ComboBox2.Items:= ComboBox1.Items;
  //...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  C1,C2: Integer;
begin
 C1:= 0;
  C2:= 0;
  for i:= 0 to ComponentCount -1 do
    if Components[i].ClassType = TComboBox then
      with TComboBox(Components[i]) do
        if ItemIndex <> -1 then
        begin
          C1:= C1 + Consumo[ItemIndex].VSensible;
          C2:= C2 + Consumo[ItemIndex].VLatente;
        end;
  Label1.Caption:= 'Sensible: '+IntToStr(C1)+#13+'Latente: '+IntToStr(C2);
end;

Donde aprovechas ItemIndex como índice del arreglo de registros, por supuesto deben corresponderse los índices.

Saludos.

[Chichero]

Ok man muchas gracias no sabes cuántas lineas de prog me va a ahorrar eso!