Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
Delphi 7 Professional
|
Re: Pizzaservice
3. Dez 2006, 18:14
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;
Mike Schröder Fleiß kann man vortäuschen, faul muss man schon selber sein!
|