Größer als und kleiner als

[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;