VPF::Список методов класса в рантайм

green_2005

Дата 9.3.2008, 02:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте.
Как получить список методов класса ( для свойств можно использовать RTTI, а с методами - не знаю что делать).

Alexeis

Дата 9.3.2008, 11:00 (ссылка)

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

Загрузка ...

Амеба

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

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

green_2005, нет такого, есть только евенты, свойства процедуроного типа.

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

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

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

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

lukas

Дата 9.3.2008, 18:06 (ссылка)

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

Загрузка ...

Опытный

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

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

можно лишь только проверить на существование метода у класса...

только я вот не пойму, зачем в TypInfo вот такая запись:

Код


TMethodKind = (mkProcedure, mkFunction, mkConstructor, mkDestructor,
    mkClassProcedure, mkClassFunction,
    { Obsolete }
    mkSafeProcedure, mkSafeFunction);

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

lukas

Дата 9.3.2008, 19:39 (ссылка)

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

Загрузка ...

Опытный

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

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

а вообще щас откопал интересную информульку про модуль ObjAuto.pas

вот что успел набросать:

Код


unit Unit1;
{$METHODINFO ON}

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  published
    procedure Hide;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Hide;
begin
 Form1.Visible := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
  Var
  TypeData: TTypeData;
  PInfo: PMethodInfoHeader;
  AR: Array of Variant;
  AR2: Array of Integer;
begin
  SetLength(AR,0);
  SetLength(AR2,0);
  ObjectInvoke(Form1,GetMethodInfo(Form1,'Hide'),AR2,AR);
end;

end.

Стоит заметить что делфи оказывается может генерировать информацию о методах класса с помощью ключа {$METHODINFO ON}, подобно свойствам, и подобно TypInfo.pas для свойств существует ObjAuto.pas для методов объекта (который совершенно ничем не документирован), но судя по исходникам можно узнать кол-во параметров в методе, а также выполнить этот метод со своими параметрами, думаю и коль-во методов можно узнать...э

P.S. Alexeis, невозможное становится возможным... smile

Добавлено через 6 минут и 20 секунд
а вот обсуждение похожего вопроса в королевстве:

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=41069

Это сообщение отредактировал(а) lukas - 9.3.2008, 19:42

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

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