Как приравнять переменную string к значению свойства?

Question

[Некит Медведев]

код
text:=RichEdit1.SelAttributes.Style;
выводи ошибку:
[dcc32 Error] Unit4.pas(124): E2010 Incompatible types: 'string' and 'TFontStyles'
как исправить?

Answer 1

[n-fom]

uses System.TypInfo;

type TEnumConverter = class
public
  class function EnumToInt<T>(const EnumValue: T): Integer;
  class function EnumToString<T>(EnumValue: T): string;
  class function GetAs<T>(pValor: String): T;
end;

implementation

class function TEnumConverter.EnumToInt<T>(const EnumValue: T): Integer;
begin
  Result := 0;
  Move(EnumValue, Result, sizeOf(EnumValue));
end;

class function TEnumConverter.EnumToString<T>(EnumValue: T): string;
begin
  Result := GetEnumName(TypeInfo(T), EnumToInt(EnumValue));
end;

class function TEnumConverter.GetAs<T>(pValor: String): T;
var
  Tipo: PTypeInfo;
  Temp: Integer;
  PTemp: Pointer;
begin
   Tipo := TypeInfo(T);
   Temp := GetEnumValue(Tipo, pValor);
   PTemp := @Temp;
   Result := T(PTemp^);
end;

Comments

[Некит Медведев]

блин как тяжело то)

Answer 2

[Александр Скуснов]

Style это множество (set) перечислений (enum). Этот тип не совместим со string.

Comments

[Некит Медведев]

а какой совместим?

[Александр Скуснов]

Некит Медведев: слева и справа от присваивания должны быть совместимые типы. Перечисление это целые числа. Для множества есть свои операции.
Какая у вас задача?
Можно на форме вывести кнопки стилей и отображать их нажатыми или нет.