Ist string eine Enumeration?

[DCoderHH]

Hallo,

ich habe zur Laufzeit einen String wie z.B. 'TFontStyle' oder 'TObject'. Ich benötige nun eine Funktion, die mir zurückgibt ob der String eine Enumeration ist oder nicht. Wie kann ich das prüfen? In einem Beispiel soll bei 'TFontStyle' true und 'TObject' false zurückgegeben werden. Danke!

[Der schöne Günther]

// Edit:

Kommando zurück, für dein Beispiel mit TFontStyle scheint es nicht zu funktionieren da keine ausreichenden RTTI-Informationen vorhanden sind. Schade.

Delphi-Quellcode:

// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
program Project7;

{$APPTYPE CONSOLE}
{$R *.res}

uses
   System.SysUtils,
   System.Rtti,
   System.StrUtils;

type
   TEnumerations = TArray<TRttiEnumerationType>;

function getAllEnumerations(): TEnumerations;
var
   context: TRttiContext;
   rttiType: TRttiType;
begin
   Result := [];
   context := TRttiContext.Create();
   for rttiType in context.GetTypes() do
      if (rttiType is TRttiEnumerationType) then
         Result := Result + [rttiType as TRttiEnumerationType];
end;

procedure printEnumerations(const enumerations: TEnumerations); inline;
var
   enumeration: TRttiEnumerationType;
begin
   for enumeration in enumerations do
      WriteLn(enumeration.ToString());
end;

procedure checkForEnumString(
   const enumeration: TRttiEnumerationType;
   const stringValue: String
);
begin
   if System.StrUtils.MatchStr(stringValue, enumeration.GetNames()) then
      WriteLn(stringValue, ' is a value of ', enumeration.ToString());
end;

procedure p();
const
   someEnumString = 'dkStatic';
var
   enumeration: TRttiEnumerationType;
begin
   for enumeration in getAllEnumerations() do
      checkForEnumString(enumeration, someEnumString);
end;

begin
   try
      p();
   except
      on E: Exception do
         Writeln(E.ClassName, ': ', E.Message);
   end;
   readln;
end.

ergibt

Code:

dkStatis is a value of TDispatchKind

[peterbelow]

Zitat von DCoderHH:

Hallo,

ich habe zur Laufzeit einen String wie z.B. 'TFontStyle' oder 'TObject'. Ich benötige nun eine Funktion, die mir zurückgibt ob der String eine Enumeration ist oder nicht. Wie kann ich das prüfen? In einem Beispiel soll bei 'TFontStyle' true und 'TObject' false zurückgegeben werden. Danke!

RTTI ist die einzige Möglichkeit um aus einem Typnamen in einem String den zugehörigen Typ zu identifizieren. Falls Du allerdings nur für einen begrenzten Satz von Typen sowas brauchst und dieser zur compiler time bekannt ist kannst Du dir einfach dein eigenes TDictionary<string, pTypeinfo> bauen, unter Verwendung der guten alten TypeInfo-Funktion.