Zwei Statements bei einer If Abfrage

[torro]

Hi!
folgendes Problem:
Ich hab ne If Else Abfrage mit mehreren Statements. An und für sich eigentlich kein Problem.

Delphi-Quellcode:

IF (RadioButton1.Checked) AND (RadioButton1.Caption=Richtig) THEN

funzt ohne Probleme.

Bei

Delphi-Quellcode:

IF FragenHochzaehler ( >200 ) AND ( <300 ) THEN

funktioniert es allerdings nicht mehr.

Sprich der Wert soll überprüft werden ob er ihm Bereich 200-300 liegt.

Eine Idee woran es liegt?

Vielen Dank schonmal.

[vit4l]

Versuche es mal mit

Delphi-Quellcode:

IF ((FragenHochzaehler > 200) AND (FragenHochzaehler < 300 )) THEN

[Sir Rufo]

Delphi-Quellcode:

IF ( FragenHochzaehler >200 ) AND ( FragenHochzaehler <300 ) THEN

[torro]

danke, scheint zu funktionieren. vielen dank für die schnelle antwort!

[Sir Rufo]

Zitat:

Zitat von torro (Beitrag 1050650)

danke, scheint zu funktionieren. vielen dank für die schnelle antwort!

Nee, nur so funktioniert das

oder du baust die eine Funktion dafür:

Delphi-Quellcode:

function IntBetween( const Value, Min, Max : integer ) : boolean;
  begin
    Result := ( Value >= Min ) and ( Value <= Max );
  end;

Delphi-Quellcode:

if IntBetween( MeinWert, 200 + 1, 300 - 1 ) then

Es kommt aufs Gleiche raus spart nur etwas Tipparbeit

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1050654)

oder du baust die eine Funktion dafür:

Math.InRange

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1050657)

Zitat:

Zitat von Sir Rufo (Beitrag 1050654)

oder du baust die eine Funktion dafür:

Math.InRange

Ja, oder so :mrgreen:

[scrat1979]

Zitat:

Zitat von torro (Beitrag 1050642)

Hi!
[...]
Sprich der Wert soll überprüft werden ob er ihm Bereich 200-300 liegt.

Eine Idee woran es liegt?

Vielen Dank schonmal.

Streng genommen handelt es sich bei Deinem Statement um den Wertbereich 201-299 (!) Aufpassen, falls dies wichtig sein sollte!!!

[torro]

[QUOTE=Sir Rufo;1050654]

Zitat:

Zitat von torro (Beitrag 1050650)

danke, scheint zu funktionieren. vielen dank für die schnelle antwort!

Nee, nur so funktioniert das

es funktioniert.