VPF::Получить указатель на свойство класса по его имени

LECIAN

Дата 31.7.2007, 21:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Cуществует класс:

Код


TMyClass=class
private
FValue: integer;
published
property Value: integer read FValue write FValue;
end;

Возможно ли получить указатель на свойство Value зная его строковое имя ('Value')?

Alexeis

Дата 1.8.2007, 00:29 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Значение можно, это точно, а адрес свойства это неверное понятие. Свойство для того и служит чтобы закрыть прямой доступ. А адрес как раз и позволит это сделать. Можно сделать другое свойство или метод, которое будет возвращать адрес поля.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rennigth

Дата 1.8.2007, 10:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Цитата(LECIAN @ 31.7.2007, 21:59

)

Возможно ли получить указатель на свойство Value зная его строковое имя ('Value')?

Указатель на сво-во... может PPropinfo тебе нужен? Тогда так:

Код


unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TypInfo;

const
  C_PROP_VALUE: string = 'test';

type
  TForm10 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FTest: string;
    { Private declarations }
  published
    property Test: string read FTest write FTest;
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

function GetPropInfoByValue(AObject: TObject; AValue: Variant): PPropInfo;
var
  lpPropList: PPropList;
  lCount: Integer;
  i: Integer;
  lpPropInfo: PPropInfo;
  lValue: Variant;
begin
  Result := nil;
  lCount := GetPropList(AObject, lpPropList);
  if (lCount > 0) and Assigned(lpPropList) then
  begin
    for i := 0 to lCount - 1 do
    begin
      lpPropInfo := lpPropList^[i];
      if Assigned(lpPropInfo) then
      begin
        lValue := GetPropValue(AObject, lpPropInfo);
        if (not VarIsNull(lValue)) and (VarType(lValue) = VarType(AValue)) then
          if lValue = AValue then
          begin
            Result := lpPropInfo;
            Break;
          end;
      end;
    end;
  end;
end;

procedure TForm10.FormCreate(Sender: TObject);
var
  lpPropInfo: PPropInfo;
begin
  Test := C_PROP_VALUE;
  lpPropInfo := GetPropInfoByValue(Self, C_PROP_VALUE);
  if Assigned(lpPropInfo) then
    ShowMessage(lpPropInfo^.Name);
end;

--------------------

(* Honesta mors turpi vita potior *)

LECIAN

Дата 1.8.2007, 21:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Оказывается, именно модуль TypInfo как раз мне и нужен! Спасибо за пинок в нужном направлении! smile

Rennigth

Дата 2.8.2007, 09:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Цитата(LECIAN @ 1.8.2007, 21:38

)

Оказывается, именно модуль TypInfo как раз мне и нужен! Спасибо за пинок в нужном направлении!

Заходите еще smile

--------------------

(* Honesta mors turpi vita potior *)

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