type
  EMyEnum = (
    MyEnumA,
    MyEnumB,
    MyEnumC
  );
  TMyEnum = EMyEnum;
  TMySet = Set Of TMyEnum;

function MySetToText(MySet: TMySet): String;
var MyEnum: TMyEnum;
begin
Result:='[';
for MyEnum in MySet do
    begin
    if (Result.Length>1) then
        Result:=Result+', ';
    Result:=Result+GetEnumName(TypeInfo(TMyEnum), Ord(MyEnum));
    end;
Result:=Result+']';
end;

procedure TForm1.Button1Click(Sender: TObject);
var S: TMySet;
begin
S:=[MyEnumA, MyEnumC];
ShowMessage(MySetToText(S));
end;

  EMyEnum = (
    MyEnumA = 0,
    MyEnumB = 15,
    MyEnumC = 30
  );

Posted via ActualForum NNTP Server 1.5

function EMyEnum _Name(Value : EMyEnum ) : String ;
begin
     Result := GetEnumName(TypeInfo(TSymbolType),Integer(Value));
end ;

function EMyEnum _Name(Value : EMyEnum ) : String ;
begin
     Result := GetEnumName(TypeInfo(TSymbolType),Integer(Value));
end ;

type
  EMyEnum = (
    MyEnumA = 3,
    MyEnumB = 4,
    MyEnumC = 5
  );

Posted via ActualForum NNTP Server 1.5

enum Suit { Diamonds = 5, Hearts, Clubs = 4, Spades };