1:
2:
3:
4:

type
  TCardType = (ST1PSD, ST1PDD,ST1X2_DE1,ST1X4_DE1,ST1X16_DE1,ST1Y2_TE2,
               ST1Y2_TPE3,ST1Y16_TE2,ST1Y16_TPE3,ST1Y2_R2,ST1X1616_DE1_S1,
               ST1Y32_TE2,ST1Y32_TPE3,ST1AD2_V,STAD2_I,ST1DA2_V,ST1DA1_I);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

property    CardType: TCardType Read FCardType Write SetFCardTyp;
.
.
.
procedure TMitsuOPC.SetFCardTyp(o:TCardType);
begin
  if o <> FCardType then
  begin
    FCardType := o;
    Reference;
  end;
  AnalyseCard;
end;					

1:
2:
3:
4:
5:

ACard           : array of TMitsuOPC;
.
.
.
ACard[n].CardType   := PIOsDef(LIOsDef.Items[n]).ModuleType;					

1:
2:
3:
4:
5:
6:
7:
8:

case PIOsDef(LIOsDef.Items[n]).ModuleType of
'ST1PSD': ACard[n].CardType := ST1PSD;
'ST1PDD': ACard[n].CardType := ST1PDD;
'ST1X2_DE1': ACard[n].CardType := ST1X2_DE1;
.
.
.
ect					

1:
2:
3:
4:
5:

const
  CardTypeStr: array[TCardType] of String = (
    "ST1PSD", "ST1PDD", "ST1X2_DE1", "ST1X4_DE1", "ST1X16_DE1", "ST1Y2_TE2",
    "ST1Y2_TPE3", "ST1Y16_TE2", "ST1Y16_TPE3", "ST1Y2_R2", "ST1X1616_DE1_S1",
    "ST1Y32_TE2", "ST1Y32_TPE3", "ST1AD2_V", "STAD2_I", "ST1DA2_V", "ST1DA1_I");					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TypInfo;

type
  TEnumTest = (
    etVal0 = 0,
    etVal1,
    etVal2
    );

  TForm1 = class(TForm)
    BtnListEnum: TButton;
    meEnumList: TMemo;
    edEnumStr: TEdit;
    BtnSearchEnum: TButton;
    procedure BtnListEnumClick(Sender: TObject);
    procedure BtnSearchEnumClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnListEnumClick(Sender: TObject);
  var
    i: TEnumTest;
begin
  meEnumList.Clear;
  for i := Low(TEnumTest) to High(TEnumTest) do
    meEnumList.Lines.Add(GetEnumName(TypeInfo(TEnumTest),Integer(i)));
end;

procedure TForm1.BtnSearchEnumClick(Sender: TObject);
begin
  meEnumList.Lines.Add(IntToStr(GetEnumValue(TypeInfo(TEnumTest),edEnumStr.Text)));
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

object Form1: TForm1
  Left = 212
  Top = 123
  Width = 256
  Height = 235
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object BtnListEnum: TButton
    Left = 16
    Top = 8
    Width = 97
    Height = 25
    Caption = 'Enum ausgeben'
    TabOrder = 0
    OnClick = BtnListEnumClick
  end
  object meEnumList: TMemo
    Left = 16
    Top = 72
    Width = 217
    Height = 121
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
  object edEnumStr: TEdit
    Left = 120
    Top = 24
    Width = 113
    Height = 21
    TabOrder = 2
    Text = 'etVal1'
  end
  object BtnSearchEnum: TButton
    Left = 16
    Top = 40
    Width = 97
    Height = 25
    Caption = 'Wert suchen'
    TabOrder = 3
    OnClick = BtnSearchEnumClick
  end
end					

1:
2:
3:
4:
5:
6:

type
  TEnumTest = (
    etVal0 = 0,
    etVal1,
    etVal2
    );					

1:

TEnum = (a1 = 1, a2 = 2, a5 = 5);