Paramètres constants

Une déclaration en tant que CONST a essentiellement deux effets:

• Le paramètre ne doit pas être modifié par la procédure.
• Le compilateur n'a pas besoin de copier le paramètre.

Ce dernier peut conduire à des économies considérables en temps d'exécution, en particulier avec de grands paramètres de tableau ou d'enregistrement. De plus, moins d'espace de stockage est utilisé sur la pile, de sorte qu'un débordement de pile est moins probable.

Voici un autre dernier exemple:

TYPE Point = RECORD x, y: INTEGER; END;
    Rectangle = RECORD x, y, w, h: INTEGER; END;

FUNCTION PointInRect( CONST p: Point; CONST r: Rectangle ): BOOLEAN;
BEGIN
    PointInRect := (p.x >= r.x)
                AND (p.y >= r.y)
                AND (p.x < r.x + r.w)
                AND (p.y < r.y + r.h);
END;