19-09-2017, Saat: 13:36
Şöyle bir kullanım da yapılabilir:
type TMyEnum = (e1, e2, e3, e5, e4); const cEnumStr : array [TMyEnum] of string = ('Enum1', 'Enum2', 'Enum3', 'Enum5', 'Enum4'); var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var e: TMyEnum; begin for e := Low(TMyEnum) to High(TMyEnum) do ShowMessage(cEnumStr[e]); end;
Me on the move..