Pizzaservice

[oschulz]

Also ehrlich was ist übersichtlicher, das hier oder dein Quellcode?

Delphi-Quellcode:

Preis:=0;
if checkbox1.checked then Preis := Preis + Salami;
if checkbox2.checked then Preis := Preis + Käse;
if checkbox3.checked then Preis := Preis + Schinken;
if checkbox4.checked then Preis := Preis + Ananas;
if checkbox5.checked then Preis := Preis + Sardellen;
if radiogroup1.itemindex = 0 then Preis := Preis + Klein;
if radiogroup1.itemindex = 1 then Preis := Preis + Groß;
if radiogroup1.itemindex = 2 then Preis := Preis + Riesen;
if radiogroup1.itemindex = 3 then Preis := Preis + Family;

label1.caption:='Der momentane Preis ist' + floattostr(Preis) + ' €