Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: selber erkennen von CheckBox
24. Aug 2005, 23:09
Erstens pushen ist erst nach 24h erlaubt
zweitens benutze bitte die Delphi Tags
dritens hast du einen Fehler: du prüfst zuerst den RadioButton1 dann 3 und dann die 2 die Beiläge Preise werden aber immer mehr.
viertens kannst du mit begin und end die Befehle "gruppieren"
Delphi-Quellcode:
If RadioButton1.checked then //Prüfen ob es markiert ist
bergin
if CheckBox1.Checked then Kosten:= Kosten + 0.55; //wenn ja dann hier her
if CheckBox2.Checked then Kosten:= Kosten + 0.55;
...
end;
If RadioButton2.checked then //wenn nicht dann hier her
bergin
if CheckBox1.Checked then Kosten:= Kosten + 0.55;
if CheckBox2.Checked then Kosten:= Kosten + 0.55;
...
end;
If RadioButton3.checked then
bergin
if CheckBox1.Checked then Kosten:= Kosten + 0.55;
if CheckBox2.Checked then Kosten:= Kosten + 0.55;
...
end;
Alex "Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|