Objektorientierte Programmierung mit Object-Pascal

Die wohl häufigste und wichtigste Kontrollstruktur ist die Wenn-Dann-Sonst-Anweisung oder IF-THEN-ELSE-Anweisung. Die Bedingung muss ein Boolescher Ausdruck sein, also wahr oder falsch. Wenn die Bedingung erfüllt ist, dann wird die erste Anweisung ausgeführt. In allen andern Fällen die zweite Anweisung.

IF Boolescher-Ausdruck THEN Anweisung1 ELSE Anweisung2;

IF Zahl < 0 THEN Betrag := -Zahl ELSE Betrag := Zahl;

Das Semikolon kommt erst ganz am Ende.
Die Anweisungen können auch Blöcke sein (also mit BEGIN und END eingeschlossen werden):

IF a > 3 THEN
   BEGIN
     b := 2;
     c := 4;
   END
ELSE
   BEGIN
     b := 1;
     c := 2;
   END;

Achtung! Vor dem ELSE steht niemals ein Semikolon!

Der ELSE-Zweig ist optional. Wenn er fehlt, wird gleich die nächste Anweisung im Quelltext abgearbeitet.

IF a > 3 THEN
   BEGIN
     b := 2;
     c := 4;
   END;
Anweisung;


IF-THEN-ELSE-Anweisungen können auch ineinander verschachtelt werden. Dann ist eben z. B. die ELSE-Anweisung wieder eine IF-THEN-ELSE-Anweisung. Um den Überblick zu behalten, sollte man die einzelnen Blöcke eingerückt schreiben.

IF Anrede = 'Herrn'
THEN
     a := 'Sehr geehrter Herr'
ELSE
     IF Anrede = 'Frau'
     THEN a = 'Sehr geehrte Frau'
     ELSE a = 'Sehr geehrte Damen und Herren';


Das ELSE bezieht sich immer auf das letzte davorstehende IF, welches noch kein ELSE hatte.