ماهي فائدة Type énuméré

[paix144]

لتوضيح أكثر أنظر هذا المثال

كود :

uses ShellApi,TypInfo;

كود :

Type TChiffre=(Zero,One,Two,Tree,Four,Five);

كود :

procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := GetEnumName(TypeInfo(TChiffre),ComboBox1.ItemIndex); end;