Как получить EnumName(s)

Привет всем!

Вот код:

  for i := 0 to Integer(High(TAlignLayout)) do
    memo1.Lines.Add(GetEnumName(System.TypeInfo(TAlignLayout), i));

Всё работает, но мне надо всё ето получить если TAlignLayout не как в
примере, но он как String, типо mystring := 'TAlignLayout' и исходя из
етого получить етот список ...

Есть идеи ?

WBR
Janex

Нихрена не понял.

rgreat,

Он хочет получить информацию по типу не имея TypeInfo, только имя типа.
Нельзя.

Чего нельзя то?

TRttiContext.Create.FindType('FMX.Types.TAlignLayout').Handle

uses system.rtti;
procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
 ss:string;
begin
 for s in TRttiEnumerationType(TRttiContext.Create.FindType('FMX.Types.TAlignLayout').AsOrdinal).GetNames do
  ss := ss + sLineBreak + s;
 showmessage(ss);
end;

Kazantsev Alexey,

А, неправ, думал общего списка нет.

Kazantsev Alexey,

Но все равно нужно указывать имя модуля?

TRttiContext.Create.FindType('TAlignLayout').Handle

Работать не будет?

_Vasilisk_	↑
Но все равно нужно указывать имя модуля?

Обязательно. Параметр называется QualifiedName.

Kazantsev Alexey	↑
Обязательно

Т.е. для исходной задачи

Janex	↑
String, типо mystring := 'TAlignLayout'

работать не будет. Только если ТС не переформулирует задачу

_Vasilisk_,

Если уж на то пошло, то ТС может написать собственный поиск, возможность перебрать все типы есть. Вот только, что делать с одноимёнными...