unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
RGGender: TListBox;
EHeight: TEdit;
EWeight: TEdit;
procedure Button1Click(Sender: TObject);
private
IdealHigh: Real;
IdealLow: Real;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
lMultiHigh,
lMultiLow: Double;
begin
Case RGGender.ItemIndex
of
0:
begin
lMultiHigh := 0.97;
lMultiLow := 0.93;
end;
1:
begin
lMultiHigh := 0.92;
lMultiLow := 0.88;
end;
else
begin
ShowMessage('
Berechnung nicht möglich. (ItemIndex: '+ IntToStr(RGGender.ItemIndex) + '
)');
Exit;
end;
end;
try
IdealHigh := StrToFloat(EHeight.Text) - 100;
IdealHigh := IdealHigh * lMultiHigh;
IdealLow := StrToFloat(EHeight.Text) - 100;
IdealLow := IdealLow * lMultiLow;
except
ShowMessage('
Fehler! Bitte überprüfe deine Eingabe.');
Exit;
end;
if IdealHigh < StrToFloat(EWeight.Text)
then
ShowMessage ('
Sie haben Übergewicht!')
else
if IdealLow > StrToFloat(EWeight.Text)
then
ShowMessage ('
Sie haben Untergewicht!')
else
ShowMessage ('
Sie haben Idealgewicht!');
end;
end.