Größer als und kleiner als

[Tommy1988]

Hallo, ich habe grade eine Denklücke (hab vergessen wie das norrens geht..)
Ich habe eine Zahl, und möchte, wenn sie größer 19 und kleiner 24 (also dazwischen) ist,
darauf reagieren. (und das 2 Mal)

Delphi-Quellcode:

if (Zahl2 >= 19) and (Zahl1 <= 24)and
(Zahl2 >= 19) and (Zahl2 <= 24) then
 begin
 Label1.Caption := 'Zahl1/Zahl2 zwischen 19 und 24';
 end else
 begin
Label1.Caption := 'mh ?!';
end;

ich bekomme als caption IMMEr letzteres :idea:

[DeddyH]

Zitat:

Zitat von Tommy1988

Delphi-Quellcode:

if (Zahl2 >= 19) and (Zahl1 <= 24)and //Zahl2 ?
(Zahl2 >= 19) and (Zahl2 <= 24) then

:mrgreen:

[Tormentor32]

Delphi-Quellcode:

if (Zahl1 in [19..24]) and (Zahl2 in [19..24])

so sollte es gehen

[Tommy1988]

erm.. ne meine variablen heißen eigentlich alle anders, habe das jetzt nur HIER so hingeschrieben, sollte natürlich AUCH Zahl1 sein.

Aber Problem liegt halt noch immer vor,

Edit:
[Fehler] uMain.pas(870): E2010 Inkompatible Typen: 'Real' und 'Integer'

[Die Muhkuh]

Delphi-Quellcode:

if ((Zahl1 > 19) and (Zahl1 < 24)) and ((Zahl2 > 19) and (Zahl2 < 24)) then
begin
Label1.Caption := 'Zahl1 UND Zahl2 zwischen 19 und 24';
end else
begin
Label1.Caption := 'mh ?!';
end;

oder meinste mehr das hier:

Delphi-Quellcode:

if ((Zahl1 > 19) and (Zahl1 < 24)) or ((Zahl2 > 19) and (Zahl2 < 24)) then // Man beachte das or
begin
Label1.Caption := 'Zahl1 UND Zahl2 zwischen 19 und 24';
end else
begin
Label1.Caption := 'mh ?!';
end;

[edit]

Zitat:

[Fehler] uMain.pas(870): E2010 Inkompatible Typen: 'Real' und 'Integer'

Zeig das mal, was in der Zeile steht...[/edit]

[Tommy1988]

Delphi-Quellcode:

BMI := Runden(Gewicht / (GroesseM*GroesseM),2);
Alter    := StrToFloat(EdAlt.Text);
.
.
if (BMI in [19..24]) and (Alter in [19..24]) then
 begin
 Label34.Caption := 'BMI/Alter zwischen 19 und 24'+
 FloatToStr(BMI)+'/'+FloatToStr(Alter);
 end else
 begin
Label34.Caption := 'mh ?!';
end;

[DeddyH]

Bei mir geht' s:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl1,Zahl2: real;
begin
  Zahl1 := 20.5;
  Zahl2 := 22.3;
  if (Zahl1 > 19) and (Zahl1 < 24) and (Zahl2 > 19) and (Zahl2 < 24) then
  begin
    Label1.Caption := 'Zahl1 UND Zahl2 zwischen 19 und 24';
  end else
  begin
    Label1.Caption := 'mh ?!';
  end;
end;

[Tommy1988]

Inkompatible Typen Real und Integer:
Die Zeilen:

Delphi-Quellcode:

BMI := Runden(Gewicht / (GroesseM*GroesseM),2);
Alter    := StrToFloat(EdAlt.Text);
.
.
if (BMI in [19..24]) and (Alter in [19..24]) then
begin
Label34.Caption := 'BMI/Alter zwischen 19 und 24'+
FloatToStr(BMI)+'/'+FloatToStr(Alter);
end else
begin
Label34.Caption := 'mh ?!';
end;

[Rociel]

wieso fürs alter kein byte?
beim BMI wird das alter doch ganzzahlig verwendet oder?

[inherited]

Wenn BMI ein integer ist, musst du IntToStr, nicht FloatToStr nehmen.