Delphi-Quellcode:
type
TSortDir = (sdAscending { = 0 }, sdDescending { = 1 });
var
FSortDir : TSortDir;
begin
...
FSortDir := TSortDir(Ord(FSortDir)+Ord(sdAscending));
...
end;
[edit]
Aber wenn FSortDir vorher schon sdAscending ist, kommt natürlich TSortDir(2) raus, also weder sdAscending noch sdDescending.
Ist das beabsichtigt?