Set durlaufen

[Pr0g]

Hallo,

ich möchte ein Set durchlaufen, also immer zum nächsten Element springen und beim Ende wieder zum Anfang und das ganze auch umgekehrt. Das geht doch bestimmt kürzer als:

Delphi-Quellcode:

TMyAction = (maCopy, maCut, maPaste);
...
action: TMyAction;
...
procedure next;
begin
  if action = maCopy then
    action := maCut
  else begin
    if action = maCut then 
      action := maPaste
    else begin
      if action = maPaste then
        action := maCopy;
    end;
  end;
end;
...
procedure prev;
...

:roll:

Edit: Hat sich erledigt, ich hatte vergessen dass Succ() und Pred() eine Rückgabe liefern und nicht direkt den Parameter verändern :mrgreen: