Zitat von
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;
Verstehe jetzt nicht ganz wieso du 0 zum Preis addierst??
Vorallem ist das Anpassen des Label1 völlig überflüssig.
Der Text wird so schnell nacheinander geändert dass man es ja eh nicht sieht.
Würd da ganz unten ein mal die caption setzten.
Greetz