Sumar y Dividir Combobox

[ZiriusB]

Amigos use esta formula y me funciona a la perfeccion colocandola en un BOTON con evento click...pero ahora, quiero que al yo ir seleccionando los combobox me sume automaticamente en el TEDIT(que es donde se muestra el resultado de la suma de los combobox) sin necesidad de tener un boton extra para sumar...me explico?

espero puedan ayudarme!

[ecfisa]

Hola ZiriusB.

Se me ocurre que podrías usar el evento OnExit de cada ComboBox. (aunque también podría ser OnChange...)

Algo como :

Código Delphi [-]
procedure TForm1.ComboBoxExit(Sender: TObject);
var
  i, r, c: Integer;
begin
  r := 0;
  c:= 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TComboBox) and (TComboBox(Components[i]).Text > '') then
    begin
       r := r + StrToInt(TComboBox(Components[i]).Text);
       c := c + 1;
    end;
  end;
  Edit1.Text := FormatFloat('#,##0.##', r/c);
end;

Tendrías que asignar el procedimiento ComboBoxExit a cada ComboBox de tu form.

Saludos.

[ZiriusB]

Empezado por ecfisa

Hola ZiriusB.

Se me ocurre que podrías usar el evento OnExit de cada ComboBox. (aunque también podría ser OnChange...)

Tendrías que asignar el procedimiento ComboBoxExit a cada ComboBox de tu form.

Saludos.

Bueno lo que sucede es que son muchos formularios y cada formulario tiene muchas labels, de 15 a 18...

probe con un combo y me lanza el resultado de ese solo, lo probare completo a ver! gracias!

[ecfisa]

Empezado por ZiriusB

Bueno lo que sucede es que son muchos formularios y cada formulario tiene muchas labels, de 15 a 18...

probe con un combo y me lanza el resultado de ese solo, lo probare completo a ver! gracias!

Bueno, podés reducir la tarea aprovechando la propiedad ComponentCount nuevamente:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ....
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    procedure ComboBoxChange(Sender: TObject);
  public
  end;
...
implementation
...
procedure TForm1.ComboBoxChange(Sender: TObject);
var
  i, r, c: Integer;
begin
  r := 0;
  c:= 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TComboBox) and (TComboBox(Components[i]).Text > '') then
    begin
       r := r + StrToInt(TComboBox(Components[i]).Text);
       c := c + 1;
    end;
  end;
  Edit1.Text := FormatFloat('#,##0.##', r/c);
end;

{ Asignar ComboBoxChange al evento OnChange de todos los combos de Form1 }
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TComboBox then
      TComboBox(Components[i]).OnChange:= ComboBoxChange;
end;

Saludos.

[ZiriusB]

Amigos, quisiera intentar esta misma formula pero con otro componente, con un RADIOGROUP, he intentado cambiarla pero me salta un error, podrian darme una mano con esto...

Código Delphi [-]
  r := 0;
  c:= 0;
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TAdvOfficeRadioGroup) and (TAdvOfficeRadioGroup(Components[i]).Items > '') then
    begin
       r := r + StrToInt(TAdvOfficeRadioGroup(Components[i]).Items);
       c := c + 1;
    end;
  end;
  nfinal.Text := FormatFloat('#,##0.##', r/c);

las variables estan declaradas, todo igual... pero me salta un error!

Agradezco su ayuda!

[ZiriusB]

Perdon no es

Código Delphi [-]
TAdvOfficeRadioGroup(Components[i]).Items

es

Código Delphi [-]
TAdvOfficeRadioGroup(Components[i]).Itemindex

[ecfisa]

Hola ZiriusB.

Código Delphi [-]
var
  c, i, j: Integer;
  r: Double;
begin
  r:= 0;
  c:= 0;
  for i:= 0 to ComponentCount -1 do
   if (Components[i] is TRadioGroup) and
      (TRadioGroup(Components[i]).ItemIndex > -1) then
   begin
     r:= r + StrToFloat(TRadioGroup(Components[i]).Items[TRadioGroup(Components[i]).ItemIndex]);
     Inc(c);
   end;
  if c > 0 then
    ShowMessage(FormatFloat('#,##0.##', r/c));

Un saludo.