Durch einen Daten-Typ iterieren

[lazarus_newbee]

Hallo zusammen:

ich habe mir einen Datentyp geschaffen und möchte nun durch die Werte iterieren (hoffentlich stimmt das Wort).

Code: Alles auswählen

type TSpielfarben = (rot, gruen, blau, gelb);

Jetzt brauch ich etwas im Sinne von TSpielfarben.Next wo ich z.B. nach dem Wert "rot" den Wert "gruen" bekomme, danach "blau"...

geht das irgendwie?

[theo]

Mit succ und pred kannst du das relativ einfach machen.

Code: Alles auswählen

var Spf:TSpielfarben;
begin
  Spf:=blau;
  writeln(Spf);
  Spf:=Succ(Spf);
  writeln(Spf);
  Spf:=Pred(Spf);
  writeln(Spf); 
end;

[mschnell]

Code: Alles auswählen

var 
  i: Spielfarben;
  n: Integer;
  for i := Low(Spielfarben) to High(Spielfarben) do begin
    n = ord(i);
  end;

[lazarus_newbee]

Besten Dank! Genau das hab ich gemeint.

[marcov]

Code: Alles auswählen

Uses Typinfo;
 
Type TSpielfarben = (rot, gruen, blau, gelb);
 
var x  : TSpielfarben;
      s : string;
 
begin
  x:=Rot;
  s:=GetEnumName(typeinfo(TSpielfarben),ord(x));
  x:=succ(x);
  s:=s+' '+GetEnumName(typeinfo(TSpielfarben),ord(x));
  writeln(s);
end.