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