Probleme mit Verzweigung Delphi-Neuling

[Ares90]

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

[Der.Kaktus]

Hallo und Herzlich Willkommen in der :dp:

Ein TEdit Feld nimmt alle!!! Zeichen :gruebel:

getestet unter Delphi 7

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  r:Real;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
 r:=StrToFloat(edt1.text);    //Eingabe : 2,5
 lbl1.Caption:=floattostr(r); //Ausgabe : 2,5
end;

end.

[quantum]

Mach mal Punkt statt Komma. Also zb 18.5

[Gargoyl]

Ich glaube Ares90 meint wie man ein Komma in Delphi eingeben kann, also im Quelltext wir der Komma nicht genommen.

Probier es mal mit folgendem:

Delphi-Quellcode:

if (ergebnis < 18.5) then label1.Caption := 'Untergewicht' ;

zu deinem anderen Problem:

Delphi-Quellcode:

if ((ergebnis >= 18.5) and (ergebnis < 25)) then label1.Caption := 'Normalgewicht';
if ((ergebnis >= 25) and (ergebnis < 30)) then label1.Caption := 'Übergewicht';
if (ergebnis >= 30) then label1.Caption := 'Fettsucht';

greetz
G.


P.S.: sorry falls es nicht läuft, ich habe schon länger kein Delphi mehr programmiert.

[Ares90]

Es klappt jetzt :-D
Riesen Dank an euch! Super Forum!