RadioButtons und CheckBoxen

[himitsu]

Zitat von DeddyH:

Delphi-Quellcode:

case MeineRadioGroup.ItemIndex of
  0: b := a + 1;
  1: b := a + 2;
  //usw. usf.
end;

In diesem Fall sogar noch einfacher.

Delphi-Quellcode:

a := StrToFloat(Edit1.Text);
b := a + MeineRadioGroup.ItemIndex + 1;
Edit2.Text := FloatToStr(b);

// aka

Edit2.Text := FloatToStr(StrToFloat(Edit1.Text) + MeineRadioGroup.ItemIndex + 1);