unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
e_anzahl: TEdit;
RadioButton1: TRadioButton;
Label1: TLabel;
RadioGroup1: TRadioGroup;
Label2: TLabel;
Panel1: TPanel;
p_einzel: TPanel;
Button2: TButton;
Panel2: TPanel;
p_gesamt: TPanel;
procedure eingabe;
procedure einzelpreisausgabe;
procedure gesamtpreisausgabe;
function f_einzel:double;
function f_gesamt:double;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
einzel,gesamt,anzahl:double;
implementation
const
kinder=5;
erwachsen=10;
Senioren=7;
Sauna=5;
{$R *.dfm}
procedure Tform1.eingabe;
begin
anzahl:=strtofloat(form1.e_anzahl.Text);
end;
function Tform1.f_einzel:double;
begin
if (radiobutton1.Checked:=false)
then
begin
case radiogroup1.ItemIndex
of
-1:showmessage('
bitte etwas auswählen');
0:
begin
einzel:=kinder*anzahl;
end;
1:
begin
einzel:=erwachsen*anzahl;
end;
2:
begin
einzel:=senioren*anzahl;
end;
end;
end
else begin
case radiogroup1.ItemIndex
of
-1:showmessage('
bitte etwas auswählen');
0:
begin
einzel:=kinder*anzahl+sauna;
end;
1:
begin
einzel:=erwachsen*anzahl+sauna;
end;
2:
begin
einzel:=senioren*anzahl+sauna;
end;
end;
end;
end;
function Tform1.f_gesamt:double;
begin
gesamt:=einzel;
end;
procedure Tform1.einzelpreisausgabe;
begin
p_einzel:=floattostr(f_einzel);
end;
procedure Tform1.gesamtpreisausgabe;
begin
p_gesamt:=floattostr(f_gesamt);
end;
end.