Pizzaservice

[MikeS]

Ich würde dann auch noch den Preis in String umwandeln. Ungefähr so:

Delphi-Quellcode:

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

begin
      if checkbox1.Checked then
        Preis := Preis + Salami
      else
        Preis := Preis;

      str(Preis:2, SPreis);
      label1.Caption:='Der momentane Preis ist' + sPreis;

      if checkbox2.Checked then
        Preis := Preis + Kaese;
      str(Preis:2, SPreis);
      label1.caption:='Der momentane Preis ist' + SPreis;
end;