Pizzaservice

[freak4fun]

Und weiter gehts ...

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;

Case radiogroup1.itemindex of
  0: Preis := Preis + Klein;
  1: Preis := Preis + Groß; 
  2: Preis := Preis + Riesen;
  3: Preis := Preis + Family;
end;

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

MfG
freak