Pizzaservice

[cobralord]

Hallo,
ich möchte einen Pizzaservicerechner programmieren, habe jetzt aber folgendes Problem:

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=cbchecked then Preis + Salami
else Preis + 0;
label1.Caption:='Der momentane Preis ist' + Preis;
if checkbox2=cbchecked then  Preis + Käse;
label1.caption:='Der momentane Preis ist' + Preis;


end;

Ich kriege eine Fehlermeldung: 'Operator ist auf diesen Operandentyp nicht anwendbar.'
Dabei ist ist die Zeile mit dem ersten 'if' rot hervorgehoben. Kann mir bitte jemand sagen was falsch ist?
Vielen Dank schon mal im Vorraus!!!

[Balu der Bär]

Delphi-Quellcode:

if checkbox1.checked then Preis + Salami

[fwsp]

Delphi-Quellcode:

Preis + Salami

das soll wahrscheinlich

Delphi-Quellcode:

Preis := Preis + Salami

heißen.

[cobralord]

@ Balu der Bär: Nein, das habe ich auch versucht und er unterschlängelt es von Anfang an.

@fwsp: Das hilft leider auch nicht.

Trotzdem vielen Dank!

[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;

[cobralord]

@ Balu der Bär:Sorry, ich habe den Code eben nicht richtig gelesen. Mit dem Punkt funktioniert es doch.
Entschuldigung :oops: :oops: :oops:

[RWarnecke]

Ich würde das ganze so schreiben :

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
  Preis := 0;
  if checkbox1.checked then Preis := Preis + Salami
  else Preis := Preis + 0;
  label1.Caption:='Der momentane Preis ist' + Preis;
  if checkbox2.checked then Preis := Preis + Käse;
  label1.caption:='Der momentane Preis ist' + Preis;
end;

[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;

[Sascha L]

also

Delphi-Quellcode:

else Preis := Preis + 0;

ist ja wohl extrem überflüssig!! :D

[cobralord]

Vielen Dank an alle. So wie es RWarnecke und MikeS geschrieben haben funktioniert es. Vielen Dank an alle!! :thumb: :thumb: