Thema: Delphi selber erkennen von CheckBox

Einzelnen Beitrag anzeigen

homerunjack

Registriert seit: 22. Aug 2005
31 Beiträge
 
#9

Re: selber erkennen von CheckBox

  Alt 24. Aug 2005, 19:53
ich hab das jetzt nach dem modell von Jarmen_Kell aufgebaut:

var Kosten:Real;
begin
If RadioButton1.checked then Kosten:= 3.50;

If RadioButton2.checked then Kosten:= 6.50;

If RadioButton3.checked then Kosten:=3.20;

If RadioButton1.checked then


if CheckBox1.Checked then Kosten:= Kosten + 0.55;
if CheckBox2.Checked then Kosten:= Kosten + 0.55;
if CheckBox3.Checked then Kosten:= Kosten + 0.55;
if CheckBox4.Checked then Kosten:= Kosten + 0.55;
if CheckBox5.Checked then Kosten:= Kosten + 0.55;
if CheckBox6.Checked then Kosten:= Kosten + 0.55;
if CheckBox7.Checked then Kosten:= Kosten + 0.55;
if CheckBox8.Checked then Kosten:= Kosten + 0.55;
if CheckBox9.Checked then Kosten:= Kosten + 0.55;
if CheckBox10.Checked then Kosten:= Kosten + 0.55;
if CheckBox11.Checked then Kosten:= Kosten + 0.55;
if CheckBox12.Checked then Kosten:= Kosten + 0.55;
if CheckBox13.Checked then Kosten:= Kosten + 0.55;
if CheckBox14.Checked then Kosten:= Kosten + 0.55;
if CheckBox15.Checked then Kosten:= Kosten + 0.55;
if CheckBox16.Checked then Kosten:= Kosten + 0.55;
if CheckBox17.Checked then Kosten:= Kosten + 0.55;
if CheckBox18.Checked then Kosten:= Kosten + 0.55;
if CheckBox19.Checked then Kosten:= Kosten + 0.55;
if CheckBox20.Checked then Kosten:= Kosten + 0.55;
if CheckBox21.Checked then Kosten:= Kosten + 0.55;
if CheckBox22.Checked then Kosten:= Kosten + 0.55;
if CheckBox23.Checked then Kosten:= Kosten + 0.55;
if CheckBox24.Checked then Kosten:= Kosten + 0.55;
if CheckBox25.Checked then Kosten:= Kosten + 0.55;
if CheckBox26.Checked then Kosten:= Kosten + 0.55;
if CheckBox27.Checked then Kosten:= Kosten + 0.55;

if CheckBox28.Checked then Kosten:= Kosten + 0.8;
if CheckBox29.Checked then Kosten:= Kosten + 0.8;
if CheckBox30.Checked then Kosten:= Kosten + 0.8;
if CheckBox31.Checked then Kosten:= Kosten + 0.8;
if CheckBox32.Checked then Kosten:= Kosten + 0.8;
if CheckBox33.Checked then Kosten:= Kosten + 0.8;
if CheckBox34.Checked then Kosten:= Kosten + 0.8;
if CheckBox35.Checked then Kosten:= Kosten + 0.8;
if CheckBox36.Checked then Kosten:= Kosten + 0.8;
if CheckBox37.Checked then Kosten:= Kosten + 0.8;

if CheckBox38.Checked then Kosten:= Kosten + 2.3;
if CheckBox39.Checked then Kosten:= Kosten + 2.3;
if CheckBox40.Checked then Kosten:= Kosten + 2.3;
if CheckBox41.Checked then Kosten:= Kosten + 2.3;
if CheckBox42.Checked then Kosten:= Kosten + 2.3;
Label3.caption:= FloatToStr (Kosten) ;


If RadioButton3.checked then

if CheckBox1.Checked then Kosten:= Kosten + 0.55;
if CheckBox2.Checked then Kosten:= Kosten + 0.55;
if CheckBox3.Checked then Kosten:= Kosten + 0.55;
if CheckBox4.Checked then Kosten:= Kosten + 0.55;
if CheckBox5.Checked then Kosten:= Kosten + 0.55;
if CheckBox6.Checked then Kosten:= Kosten + 0.55;
if CheckBox7.Checked then Kosten:= Kosten + 0.55;
if CheckBox8.Checked then Kosten:= Kosten + 0.55;
if CheckBox9.Checked then Kosten:= Kosten + 0.55;
if CheckBox10.Checked then Kosten:= Kosten + 0.55;
if CheckBox11.Checked then Kosten:= Kosten + 0.55;
if CheckBox12.Checked then Kosten:= Kosten + 0.55;
if CheckBox13.Checked then Kosten:= Kosten + 0.55;
if CheckBox14.Checked then Kosten:= Kosten + 0.55;
if CheckBox15.Checked then Kosten:= Kosten + 0.55;
if CheckBox16.Checked then Kosten:= Kosten + 0.55;
if CheckBox17.Checked then Kosten:= Kosten + 0.55;
if CheckBox18.Checked then Kosten:= Kosten + 0.55;
if CheckBox19.Checked then Kosten:= Kosten + 0.55;
if CheckBox20.Checked then Kosten:= Kosten + 0.55;
if CheckBox21.Checked then Kosten:= Kosten + 0.55;
if CheckBox22.Checked then Kosten:= Kosten + 0.55;
if CheckBox23.Checked then Kosten:= Kosten + 0.55;
if CheckBox24.Checked then Kosten:= Kosten + 0.55;
if CheckBox25.Checked then Kosten:= Kosten + 0.55;
if CheckBox26.Checked then Kosten:= Kosten + 0.55;
if CheckBox27.Checked then Kosten:= Kosten + 0.55;

if CheckBox28.Checked then Kosten:= Kosten + 0.8;
if CheckBox29.Checked then Kosten:= Kosten + 0.8;
if CheckBox30.Checked then Kosten:= Kosten + 0.8;
if CheckBox31.Checked then Kosten:= Kosten + 0.8;
if CheckBox32.Checked then Kosten:= Kosten + 0.8;
if CheckBox33.Checked then Kosten:= Kosten + 0.8;
if CheckBox34.Checked then Kosten:= Kosten + 0.8;
if CheckBox35.Checked then Kosten:= Kosten + 0.8;
if CheckBox36.Checked then Kosten:= Kosten + 0.8;
if CheckBox37.Checked then Kosten:= Kosten + 0.8;

if CheckBox38.Checked then Kosten:= Kosten + 2.3;
if CheckBox39.Checked then Kosten:= Kosten + 2.3;
if CheckBox40.Checked then Kosten:= Kosten + 2.3;
if CheckBox41.Checked then Kosten:= Kosten + 2.3;
if CheckBox42.Checked then Kosten:= Kosten + 2.3;
Label3.caption:= FloatToStr (Kosten) ;

if RadioButton2.checked then
if CheckBox1.Checked then Kosten:= Kosten + 1.10;
if CheckBox2.Checked then Kosten:= Kosten + 1.10;
if CheckBox3.Checked then Kosten:= Kosten + 1.10;
if CheckBox4.Checked then Kosten:= Kosten + 1.10;
if CheckBox5.Checked then Kosten:= Kosten + 1.10;
if CheckBox6.Checked then Kosten:= Kosten + 1.10;
if CheckBox7.Checked then Kosten:= Kosten + 1.10;
if CheckBox8.Checked then Kosten:= Kosten + 1.10;
if CheckBox9.Checked then Kosten:= Kosten + 1.10;
if CheckBox10.Checked then Kosten:= Kosten + 1.10;
if CheckBox11.Checked then Kosten:= Kosten + 1.10;
if CheckBox12.Checked then Kosten:= Kosten + 1.10;
if CheckBox13.Checked then Kosten:= Kosten + 1.10;
if CheckBox14.Checked then Kosten:= Kosten + 1.10;
if CheckBox15.Checked then Kosten:= Kosten + 1.10;
if CheckBox16.Checked then Kosten:= Kosten + 1.10;
if CheckBox17.Checked then Kosten:= Kosten + 1.10;
if CheckBox18.Checked then Kosten:= Kosten + 1.10;
if CheckBox19.Checked then Kosten:= Kosten + 1.10;
if CheckBox20.Checked then Kosten:= Kosten + 1.10;
if CheckBox21.Checked then Kosten:= Kosten + 1.10;
if CheckBox22.Checked then Kosten:= Kosten + 1.10;
if CheckBox23.Checked then Kosten:= Kosten + 1.10;
if CheckBox24.Checked then Kosten:= Kosten + 1.10;
if CheckBox25.Checked then Kosten:= Kosten + 1.10;
if CheckBox26.Checked then Kosten:= Kosten + 1.10;
if CheckBox27.Checked then Kosten:= Kosten + 1.10;

if CheckBox28.Checked then Kosten:= Kosten + 1.60;
if CheckBox29.Checked then Kosten:= Kosten + 1.60;
if CheckBox30.Checked then Kosten:= Kosten + 1.60;
if CheckBox31.Checked then Kosten:= Kosten + 1.60;
if CheckBox32.Checked then Kosten:= Kosten + 1.60;
if CheckBox33.Checked then Kosten:= Kosten + 1.60;
if CheckBox34.Checked then Kosten:= Kosten + 1.60;
if CheckBox35.Checked then Kosten:= Kosten + 1.60;
if CheckBox36.Checked then Kosten:= Kosten + 1.60;
if CheckBox37.Checked then Kosten:= Kosten + 1.60;

if CheckBox38.Checked then Kosten:= Kosten + 4.60;
if CheckBox39.Checked then Kosten:= Kosten + 4.60;
if CheckBox40.Checked then Kosten:= Kosten + 4.60;
if CheckBox41.Checked then Kosten:= Kosten + 4.60;
if CheckBox42.Checked then Kosten:= Kosten + 4.60 ;
Label3.caption:= FloatToStr (Kosten);

Kurze Erklärung:
RadioButton1 : kleine pizza
Radiobutton2: mittlere
Radiobutton3: große
CheckBox1-42: Beläge

jetzt kostet der belag für große pizza mehr als für klein und mittel. wenn ich nun eine pizza ausrechnen möchte kommt immer etwas falsches raus . liegt es vielleicht an der If-Schleife ???
  Mit Zitat antworten Zitat