Bei den Dateifunktionen gibt es nicht nur diese 4 Möglichkeiten ... das einzige was wirklich "genormt" ist, sind die letzten 2 Bits.
Delphi-Quellcode:
Const fmClosed = $D7B0;
fmInput = $D7B1;
fmOutput = $D7B2;
fmInOut = $D7B3;
also sozusagen:
Delphi-Quellcode:
Const _fmClosed = $0;
_fmInput = $1;
_fmOutput = $2;
_fmInOut = $3;
Theoretisch ist es möglich für bestimmte Dateitypen auch verschiedene Methoden zu implementieren, welche sich Anhand der ersten 14 Bits unterscheiden lassen, wobei halt die letzten immer die Richtung angeben.
Zusammen mit dem vorangegangen Code kommt sozusagen folgendes raus,
If Mode and 3 = fmOutput and 3 Then ...
's sieht doch viel eindeutiger aus, als
Delphi-Quellcode:
If Mode and $0003 = $0002 Then ...
//oder eben
If Mode = 2 Then ...