Größer als und kleiner als

[Rociel]

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var zahl1,zahl2:real;
begin
Zahl1:=19;zahl2:=19;
if (Zahl1 >= 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;
end;

funktioniert wunderbar