Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi if Abfrage als Integer Wert (https://www.delphipraxis.net/141765-if-abfrage-als-integer-wert.html)

netmario 15. Okt 2009 16:18


if Abfrage als Integer Wert
 
Hallo,
ich möchte eine if Abfrage machen bei der es vier verschiedene Werte geben soll, also von 1 bis 4. Es sollte dann folgendermaßen aussehen.
Delphi-Quellcode:
if Ergebnis:=1
then
Blablabla

alleinherrscher 15. Okt 2009 16:21

Re: if Abfrage als Integer Wert
 
Hi! Weiß zwar nicht 100% was du meinst, aber evtl hilft dir eine CASE Struktur weiter:

Delphi-Quellcode:
case Ergebnis of
1: Close;
2: MyProcedure;
//usw;
end;

netmario 15. Okt 2009 16:26

Re: if Abfrage als Integer Wert
 
Es geht darum, dass eine if Frage nur Boolean Werte nutzt ich aber nach 4 verschiedenen Werten abragen möchte. (Ergebnis ist ein Integer Wert). Hat funktioniert, vielen Dank.

Neutral General 15. Okt 2009 16:33

Re: if Abfrage als Integer Wert
 
Delphi-Quellcode:
if Ergebnis=1 
then
Blablabla
Bei Vergleichen nur ein "=" kein ":=" !

himitsu 15. Okt 2009 16:34

Re: if Abfrage als Integer Wert
 
jupp, genau wie Neutral General grad (in der RedBox) schrieb

und ein Vergleich liefert ja netter Weise auch ein booleanisches Ergebnis :angel:

Delphi-Quellcode:
if Ergebnis=1 then

else if Ergebnis=2 then

netmario 15. Okt 2009 16:48

Re: if Abfrage als Integer Wert
 
Vielen Dank für eure Hilfe.

jesus.or.christ 15. Okt 2009 17:42

Re: if Abfrage als Integer Wert
 
in deinem fall würd ich aber die case struktur benutzen...
die ist übersichtlicher und einfacher.

netmario 15. Okt 2009 20:02

Re: if Abfrage als Integer Wert
 
Die hab ich auch verwendet und gefällt mir auch sehr gut.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz