Pizzaservice

[igel457]

Delphi-Quellcode:

const Salami=1 ; Käse=0.8 ; Schinken=1.2 ; Ananas=1.3 ; Sardellen=1.5 ;
 Klein=1.5 ; Groß=2 ; Riesen=2.7 ; Family=3.5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Preis:double;

begin
  if checkbox1.checked then 
    Preis := Preis + Salami;
  if checkbox2.checked then 
    Preis := Preis + Käse;

  label1.caption:='Der momentane Preis ist' + Inttostr(Preis);
end;