использование указателей на методы

← →
Arm79 © (2006-04-15 13:29) [0]

Уважаемые мастера.

Пытаюсь создать оболочку для "безопасного" исполнения методов некоторjго типа.

type
TSomeMethod = function: boolean of Object;

function Auto(const SM: TSomeMethod ): boolean;
begin
Result := False;
try
Result := SM();
except
on E: Exception
do begin
...
end;
end;
end;

Так работает.

А как вызывать таким образом функцию с параметрами?
То есть типа
procedure Proc1;
begin
if Auto(Form.SomeMethod(Params, Values))
then begin
.....
end;
end;

← →
TUser © (2006-04-15 15:11) [1]

type
TSomeMethod = function (A: integer): boolean of Object;

function Auto(const SM: TSomeMethod; A: integer): boolean;
begin
Result := False;
try
Result := SM(A);
except
on E: Exception
do begin
...
end;
end;
end;

Если число параметров может варьировать - то надо использовать open arrays. Про их использование написано в справке. Если также и тип параметров может различаться - через Variant надо разруливать.

← →
Arm79 © (2006-04-15 17:23) [2]

Спасибо, я как то и не сообразил.

← →
tesseract © (2006-04-15 17:32) [3]

> Если число параметров может варьировать - то надо использовать
> open arrays. Про их использование написано в справке. Если
> также и тип параметров может различаться - через Variant
> надо разруливать.

а что open arrays чуствительны к типу данных?

← →
TUser © (2006-04-15 17:35) [4]

Open array parameters allow arrays of different sizes to be passed to the same procedure or function. To define a routine with an open array parameter, use the syntax array of type (rather than array[X..Y] of type) in the parameter declaration. For example,

function Find(A: array of Char): Integer;

declares a function called Find that takes a character array of any size and returns an integer.

← →
tesseract © (2006-04-15 17:38) [5]

> function Find(A: array of Char): Integer;

Это dynamic arrays а не open. Лень шарится по справке, вот но такой код позволит передать любой тип данных:

function Find(A: array of Const): Integer;

либо

function Find(A: array of TvarRec): Integer;

что в приципе ондо и тоже

> [5] tesseract © (15.04.06 17:38)
>
> > function Find(A: array of Char): Integer;
>
> Это dynamic arrays а не open.

Нет, это именно open.

> Это dynamic arrays а не open. Лень шарится по справке, вот
> но такой код позволит передать любой тип данных:

Скажи это авторам справки по open arrays :)

использование указателей на методы Найти похожие ветки