Принесите int в Enum в Delphi Prism - PullRequest
Новая
       40

Принесите int в Enum в Delphi Prism

4 голосов
/ 05 марта 2010

В основном такой же, как этот вопрос, но в Delphi Prism:

Приведите int к перечислению в C #

Мне удается сделать это из строки: 

YourEnum := Enum.Parse(TypeOf(YourEnum), "mystr") as YourEnum

Но я попробовал следующее и получил ошибку несоответствия типов: 

YourEnum := 3 as YourNum

Есть идеи, какой синтаксис для преобразования int в Enum?

1 Ответ

3 голосов
/ 05 марта 2010

@ Робо, синтаксис для преобразования int в Enum - 

YourEnumVar := YourEnum(3);

или 

YourEnumVar := Object(3) as YourEnum;

см. Этот образец 

namespace ConsoleAppEnumsDelphiPrism;

interface

type
  Language = (Delphi=1,Delphi_Prism,CBuilder);

  ConsoleApp = class
  public
    class method Main;
  end;

implementation

class method ConsoleApp.Main;
var
    MyEnum : Language;
begin
  // String to Enum
  MyEnum := Language(Enum.Parse(typeof(Language), 'Delphi_Prism'));
  Console.WriteLine(MyEnum.ToString());//Print Delphi_Prism

  // Int to Enum
  MyEnum:=Language(2);
  Console.WriteLine(MyEnum.ToString());//Print Delphi_Prism

  // Int to Enum using "as"   
  MyEnum:= Object(1) as Language;
  Console.WriteLine(MyEnum.ToString());//Print Delphi

  Console.ReadKey();
end;

end.
...