Zuerst hab ichs ja über einen einfachen Zahlenindex gemacht:
array[0..1] of ....
Aber weil ich mir vor kurzem vorgenommen habe, "sauberer" zu schreiben, wollte ich das mal gekapselt machen, indem ich halt einen eigenen Typ benutze. So weiß ich dann bei jedem Aufruf - auch nach längerer Zeit der Abstinenz vom Quelltext - was ich da aufrufe.
Und leider geht halt für
protocol:tProtocol nicht
Feld[not protocol] oder
Feld[1-protocol]. Deswegen verwende ich pred() bzw. succ()
Bevor mir das einfiel habe so den anderen Wert genutzt:
Delphi-Quellcode:
inc(protocol);
// Verwendung des Wertes
dec(protocol);