[ecfisa]

Empezado por Olenkaguilar

Si gracias va perfecto, eso es con números enteros, en caso de que los checkbox el caption sea números por ejemplo 0.1 0.25 0.78 ??
Eso sería todo muchas gracias

Hola.

Código Delphi [-]
...
var
  i  : Integer;
  r  : Double;
  cp : TComponent;
begin
  if TryStrToFloat(Edit1.Text, r) then
  begin
    for i:= 1 to 3 do
    begin
      cp := FindComponent('CheckBox'+IntToStr(i));
      if Assigned(cp) and TCheckBox(cp).Checked then
        r := r + StrToFloat(TCheckBox(cp).Caption)
    end;
    ShowMessage(FormatFloat('0.00', r))
  end
end;

Saludos.