Er kann dazu genutzt werden, um Variablen an externe Größen zu
binden.
Solche externen Größen sind zum Beispiel Dateien.
Der Datentyp BindingType besitzt folgende Struktur:
TYPE BindingType = PACKED RECORD
bound : BOOLEAN;
name : STRING(laenge);
END;
Implementationsspezifisch können weitere Komponenten vorhanden sein. Beispiel:
PROGRAM binde(INPUT, OUTPUT, f);
PROCEDURE bindfile(VAR f : TEXT);
VAR b : BindingType;
BEGIN
Unbind(f);
b := Binding(f);
REPEAT
Write('Gib einen Dateinamen ein : ');
Readln(b.name);
Bind(f, b);
b := Binding(f);
IF NOT b.bound THEN
Writeln ('Datei nicht gebunden - bitte noch einmal !');
UNTIL b.bound;
END;
VAR f : TEXT;
fb : BindingType;
BEGIN
bindfile(f);
Rewrite(f);
Writeln(f, 'Hallo');
Close(f);
fb := Binding(f);
WITH fb DO BEGIN
Writeln('Dateiname : ', name);
Writeln('Dateilaenge : ', size); { Erweiterungen }
Writeln('Lesbar : ', readable); { in }
Writeln('Schreibbar : ', writable); { Gnu Pascal }
END;
END.