Einzelnen Beitrag anzeigen

Ares90

Registriert seit: 5. Feb 2009
2 Beiträge
 
#1

Probleme mit Verzweigung Delphi-Neuling

  Alt 5. Feb 2009, 20:03
Hallo,
ich versuche mich gerade an einfachen Programmen die ich mit Turbo Delphi machen möchte.
Ich mache gerade einen BMI Rechner der auch schon funktioniert, nur möchte ich das dann auch anzeigt ob das ein Normalgewicht usw. ist.
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
     groesse : REAL;
     gewicht : REAL;
     ergebnis : REAL;
begin
  gewicht := strtofloat (edit1.Text);
  groesse := strtofloat (edit2.Text);
  ergebnis := gewicht/(groesse*groesse);
  edit3.text := floattostr (ergebnis);
  
if ergebnis < 18 then label1.Caption := 'Untergewicht' ;
If Ergebnis > 18 then label1.Caption := 'Normalgewicht' ;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.
Meine Probleme:
1.Ich kann nicht 18,5 eingeben, weil das Komma nicht genommen wird
2.Ich weiß nicht wie ich zb eingeben kann 18,5 bis 25

Ich kann bis jetzt nur mit den > < arbeiten.
Die Werte sind: <18,5 Untergewicht , 18,5-25 Normalgewicht, 25-30 Übergewicht, 30-35 FettsuchtI, 35-40 FettsuchtII, >45 FettsuchtIII
Ich hoffe ihr könnt mir helfen.

Mfg,
Lukas
  Mit Zitat antworten Zitat