Bedingung (If…End If)

If-Konstrukt zur Verzweigung in einen Code-Block und Fortsetzung nach dem Code-Block.

 

 

If Parameter1 = 10 Then

   Tuwas := 10

End If

Die Variable TuWas erhält den Wert 10, wenn Parameter1 den Wert 10 besitzt. Ansonsten wird der Programmablauf nach dem End If fortgesetzt.

 

Alternativ lassen sich If-Konstrukte auch folgendermaßen formulieren:

 

OpenObject := "OpenObject" If OpenObject = NoValue

Hier wird die im vorderen Bereich beschriebene Zuweisung nur dann ausgeführt, wenn die Bedingung nach dem If erfüllt ist. Der Vorteil ist die kompaktere Darstellung.

 

(

   OpenObject := "OpenObject"

   OpenObject.Anzahl := 10

) If OpenObject = NoValue

Durch Bildung von Blöcken lassen sich auch mehrere Programmzeilen bedingt ausführen.

 

Eine Bedingung kann mit dem Befehl Exit If vorzeitig beendet werden. Die Code-Ausführung wird nach dem End If fortgesetzt.

 

If Pic = NoValue Then

   Pic.LoadFile("C:\Pictures\Buche.jpg")

   Exit If If Pic <> NoValue

   Pic.LoadFile("C:\Pictures\Eiche.jpg")

End If