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;
...
Edit: Hat sich erledigt, ich hatte vergessen dass Succ() und Pred() eine Rückgabe liefern und nicht direkt den Parameter verändern