Hola joancmb.
Supongo que te refieres a un
TRadioGroup, has escrito números en los strings de la propiedad
Items y queres obtener la sumatoria.
Si es así, podrias hacer:
Código Delphi
[-]
function SumarItemsRG(RG: TRadioGroup): Double;
var
i: Integer;
begin
Result:= 0;
for i:= 0 to RG.Items.Count-1 do
Result:= Result + StrToFloat(RG.Items[i]);
end;
LLamada ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= FloatToStr(SumarItemsRG(RadioGroup1));
end
Usé
Double por que no sé que tipo estas empleando, pero si son valores enteros, puedes cambiar el tipo de retorno en la función
SumarItemsRG.
Saludos.