Durch Set iterieren geht offenbar nicht. Welche Alternative?

[zeras]

Hallo,
ich habe folgendes Problem. Per type habe ich einige Werte wie:

Delphi-Quellcode:

type TSeq = (
 tCreate,
 tWait,
 tGet,
 tStep1,
 tStep2,
 tStep3,
 tEnd)

Für jeden Typ stecken dahinter Funktionen.
Nun habe ich das Problem, dass manchmal alle Funktionen abgearbeitet werden müssen, manchmal aber nur eine von den "tStepsx" oder auch 2.
Dies wollte ich in einem Set unterbringen, wie

Delphi-Quellcode:

SequenceAll   : Set of TSeq = [tCreate..tEnd];
SequencePart  : Set of TSeq = [tCreate, tStep1, tEnd];

Sequence := SequenceAll;

Dann wird das eine oder andere Set zugewiesen. Wie komme ich aber an die einzelnen Werte, um die Funktionen dahinter auszuführen?
Die Funktionalität wird anhand von Parametern immer wieder neu gestartet und dann müsste ich irgendwie wieder auf "tCreate" kommen.
Ich hoffe, das ist verständlich.

[Uwe Raabe]

Die for-in Schleife iteriert auch über Sets.

Delphi-Quellcode:

var
  seq: TSeq;
begin
  for seq in Sequence do
    ...

end;

[Stevie]

Delphi-Quellcode:

uses
  TypInfo;

type TSeq = (
 tCreate,
 tWait,
 tGet,
 tStep1,
 tStep2,
 tStep3,
 tEnd);

const
  SeqAll = [tCreate..tEnd];
  SeqPart = [tCreate, tStep1, tEnd];

var
  s: TSeq;
begin
  for s in SeqAll do
    Write(GetEnumName(TypeInfo(TSeq), Ord(s)), ' ' );
  Writeln;

  for s in SeqPart do
    Write(GetEnumName(TypeInfo(TSeq), Ord(s)), ' ' );
  Writeln;
  Readln;
end.