Delphi Radiobuttons

[p80286]

Ggf. ist es so noch ein wenig besser

Delphi-Quellcode:

type
  Zahl1,
  Zahl2 : currency;

.....

if (RadioButton1.Checked) and not(Radiobutton2.Checked) then
  begin
    Zahl1:= StrToFloat(Edit1.text);
    Zahl2:= {StrToFloat(100)} 100; // siehe Morphies Post
    Label9.caption := FloatToStr(Zahl1 / Zahl2)
  end
else 
  Label9.caption :='0';

Gruß
K-H