|
Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.154 Beiträge
Delphi 12 Athens
|
AW: Aufzählungstypen "addieren"
26. Jul 2010, 15:03
also
FSortDir = TSortDir(Ord(FSortDir) xor 1)
.
Aber dieses funktioniert auch nur bei deinen 2 Werten, sobald ein dritter oder mehr Werte dazukommen war's das.
+1 im Ring, also 1 Weiterzählen und nach dem Ende am Anfang fortahren ginge so:
FSortDir = TSortDir((Ord(FSortDir) + 1) mod (Ord(High(TSortDir)) + 1))
.
Wobei dieses ebenso nur funktioniert, wenn es eine Fortlaufende Reihe gibt, welche bei 0 beginnt (in der Deklaration darf keinem Wert explizit via = eine andere Nummer zugeordnet sein).
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
Geändert von himitsu (26. Jul 2010 um 16:09 Uhr)
|