Sumar y Dividir Combobox

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