Sumar y Dividir Combobox

[calcena]

Buenas porque narices cuando hago una division entre en contenido de una celda entre un numero de sale error que hago mal?

var horas : integer ;
var minutos : integer;
var tiempo :Integer;
const min_hora = 60;


// calculo de horas y minutos
tiempo:= strtoint(rejilla.Cells[7,arow]);
horas:= tiempo/min_hora;

tipo de error:
[DCC Error] Unit4.pas(171): E2010 Incompatible types: 'Integer' and 'Extended'

gracias a todos

[[Delphius]]

Hola calcena, el mensaje de error lo dice todo: Se está intentando dividir un número en forma real (es decir con decimales) y almacenar su resultado en una variable entera (números sin decimales).

La solución:
1. Declaras a la variable de tipo real o double. O bien,
2. Realizas una división entera mediante el operador DIV, como por ejemplo:

Código Delphi [-]
nro2 = nro1 DIV 123;

Saludos,

[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!