|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Pizzaservice
3. Dez 2006, 18:06
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;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|