z.B.:
Delphi-Quellcode:
procedure textOpen(var textf: TextFile; Datei: string);
begin
AssignFile(textf, Datei);
Rewrite(textf); // an dieser Stelle gibt er E/A-Fehler 32 aus
end;
als Funktion mit Result=TextFile hätte es zwar auch gut ausgesehn, aber wegen des internen TextPuffers im TextFile-Record wäre dieses nicht so gut