unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
EdFruehstueck: TEdit;
EdMittag: TEdit;
GroupBox1: TGroupBox;
ChWeiblich: TCheckBox;
ChMaennlich: TCheckBox;
EdAbend: TEdit;
BuRechne: TButton;
BuEnde: TButton;
PaEingenommen: TPanel;
Label1: TLabel;
Label2: TLabel;
PaTag: TPanel;
EdEssen4: TEdit;
EdEssen5: TEdit;
EdEssen6: TEdit;
EdEssen7: TEdit;
EdEssen8: TEdit;
procedure BuEndeClick(Sender: TObject);
procedure BuRechneClick(Sender: TObject);
procedure PaTagClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BuEndeClick(Sender: TObject);
begin
close
end;
procedure TForm1.BuRechneClick(Sender: TObject);
Var Zahl1, Zahl2, zahl3, zahl4, Zahl5,Zahl6, Zahl7, Zahl8, Zahl9 : Real;
begin
Zahl1:= StrToFloat (Edfruehstueck.Text);
Zahl2:= StrToFloat (EdMittag.text);
Zahl3:= StrToFloat (EdAbend.text);
Zahl5:= StrToFloat (EdEssen4.text);
Zahl6:= StrToFloat (EdEssen5.text);
Zahl7:= StrToFloat (EdEssen6.text);
Zahl8:= StrToFloat (EdEssen7.text);
Zahl9:= StrToFloat (EdEssen8.text);
Zahl4:= Zahl1+Zahl2+Zahl3+Zahl5+zahl6+zahl7+zahl8+zahl9; //Kalorien werden zusammengerechnet
PaEingenommen.Caption:= FloatToStr (Zahl4);
end;
procedure TForm1.PaTagClick(Sender: TObject);
Var Zahl7 : Real;
begin
if ChMaennlich.Checked then Zahl7:=2400;
if ChWeiblich.checked then Zahl7:=1900;
PaTag.Caption:= FloatToStr (Zahl7);
end;
end.