VPF::Доступ индексным свойствам из RTTI

Gideon

Дата 21.2.2012, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Возможно ли, в Delphi 2010 и выше, получить доступ к индексным свойствам объектов из RTTI. Если возможно, то как?

AlekXL

Дата 24.2.2012, 06:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0

ты бы хоть справку почитал, что ли.

Код


program Project20;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Classes,System.Rtti;

  var sl:TStringList;
       ctx:TRttiContext;
       rtype:TRttiType;
       rip:TRttiIndexedProperty;
       value:TValue;
begin
  try
  sl:=TStringList.Create;
  sl.Add('One=1');
  sl.Add('Ten=10');
  ctx:=TRttiContext.Create();
  rtype:=ctx.GetType(TStrings);
  rip:=rtype.GetIndexedProperty('Names');
  value:=rip.GetValue(sl, [0] );
  Writeln(value.AsString);

  except

    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Даст One
написал за 10 минут по справке, хоть ни разу прежде не работал с RTTI

Это сообщение отредактировал(а) AlekXL - 24.2.2012, 06:46

Gideon

Дата 27.2.2012, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

За пример спасибо. На данный момент работаю с d2010, с версиями выше не приходилось. Так вот, там еще таких методов нету, по-ходу они введены или в XE или XE2.

AlekXL

Дата 29.2.2012, 05:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0

Цитата(Gideon @ 27.2.2012, 09:18

)

Так вот, там еще таких методов нету, по-ходу они введены или в XE или XE2.

так в 2010 нет способа. Нетучки.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »