列挙型の値を文字列に変換する方法は？

Question

私はずっと前にこれを行うことができたことを知っていますので、可能でなければなりません。

コンポーネントのalignプロパティalNoneなどのアイテムを保存して表示できる文字列に変換したいと思います。私はバイト値を得ることができ、私自身のテキストを思いつくことができると知っていますが、より直接的な方法があると確信しています。 「何とか」しかし、それは私が、このような「alNone」などの文字列に、フォームのalignプロパティの設定に変換されている。

Answer 1

Form.Align例えば

私がしたい...

var S:string; 
S:= somehow(Form.Align); 
ShowMessage(S); 

TPersistentの値ではありませんそれは、列挙型であるTAlignの値です

あなたは、コードのこの部分で文字列に列挙値を変換することができます。

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

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; 

System.TypInfoを用途に追加する必要があります。

文字列としてForm.Alignを取得するには、この操作を行います：

S := TEnumConverter.EnumToString(Form.Align) 

Answer 2

あなたはRTTIを使用していることを行うことができます。

uses 
    RTTI; 

procedure TForm40.FormCreate(Sender: TObject); 
var 
    sAlign: string; 
    eAlign: TAlign; 
begin 
    //Enum to string  
    sAlign := TRttiEnumerationType.GetName(Align); 

    //string to enum 
    eAlign := TRttiEnumerationType.GetValue<TAlign>(sAlign); 
end;