Entschuldige wenn ich so offen bin, aber bei dem Code rollen sich einem ja die Fußnägel auf. Nicht böse gemeint (meine ersten Progs sahen auch nicht unbedingt schön aus), aber ich denke, im Dienste der Lesbarkeit wäre wohl folgendes besser (siehe auch mein vorheriger Post):
Delphi-Quellcode:
var Belagkosten,
Grundkosten,
Gesamtkosten: real;
i : integer;
begin
Belagkosten := 0;
for i := 0 to (ControlCount - 1) do // Alle untergeordneten Controls des Forms durchlaufen
if Controls[i] is TCheckbox then // Gucken was das für ne Control ist
Belagkosten := Belagkosten + Controls[i].Tag / 100; // Speicher in Tag den Preis in Cents
if Radiobutton3.Checked then
Belagkosten := Belagkosten * 2; // Bei großer Pizza kostet der Belag doppelt
if Radiobutton1.Checked then
Grundkosten := 1,50;
if Radiobutton2.Checked then
Grundkosten := 2,30;
if Radiobutton3.Checked then
Grundkosten := 3,00;
Gesamtkosten := Grundkosten + Belagkosten;
Label3 := FloatToStr(Gesamtkosten);
end;
Genau für solche Sachen ist die Tag property ja da: Um dem Programmierer die Möglichkeit zu geben, Daten mit in der Control abzuspeichern--notfalls halt als pointer.
Den Tipp von dfried find ich übrigens auch gut (-> Radiogroup). Macht den Code nochmal eine Ecke eleganter.
Und schon richtig, interessante Programmidee
Guten appetit