11 lines
245 B
ObjectPascal
11 lines
245 B
ObjectPascal
|
uses System;
|
|||
|
|
|
|||
|
|
function ToEnum<T>(self: string): T; extensionmethod; where T: System.Enum;
|
|||
|
|
begin
|
|||
|
|
Result := T(Enum.Parse(typeof(T), self));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var color := 'Black'.ToEnum&<ConsoleColor>();
|
|||
|
|
assert(color = ConsoleColor.Black);
|
|||
|
|
end.
|