Quadratische Gleichung- Delphi

[Bummi]

Delphi-Quellcode:

  { so: 
    Label1.caption:=floattostr(D);
    If (D>0)then  Radiobutton2.Checked:=true
    else If (D=0) then  Radiobutton1.checked:=true
    else If (D<0) then  Radiobutton3.checked:=true;
   }
// oder gleich so
Radiobutton2.Checked:=(D>0);
Radiobutton1.checked:=(D=0);
Radiobutton3.checked:=(D<0);