Процедура с параметром

[StriderX]

Сообщение от Stilet

Ну это счастливчикам ХЕ-шек такое можно.

Механизм весьма unstable, если без шуток - может и захват проглючить, может и счетчик-ссылок не отработать, выдаст утечку. Однако на типовых сценариях работает отлично.
На практике часто используем такую конструкцию для отложенных вызовов, но передачу параметров делаем в явном виде без захвата: в виде массива вариант.

    ...
    MouseClick.Register(Rect(..), [param1, param2, param3],
                               procedure(params: array of Variant)
                               begin
                               end
                              ); 
    ...

Эта конструкция уже интереснее и в общем виде не требует поддержки анонимок, просто в таком виде проще отслеживать параметры =-)

[5cek]

Вообщем я сделал объектом, всё работает, теперь объявление выглядит так:

type
  TMyProcedure = object
  MyProcedure: procedure (Param: Pointer = nil) of object;
  Param: Pointer;
end;

А сам вызов так:

procedure ForToGrid(ViewData: TcxGridViewData; Querys: TUniQuery; proced: TMyProcedure); stdcall;
Var
  i: Integer;
begin
  for i := 0 to ViewData.RowCount - 1 do
  begin
    if ViewData.Rows[i].Values[0] <> null then
      if ViewData.Rows[i].Values[0] then
      begin
        Querys.RecNo := i + 1;
        proced.MyProcedure(proced.Param);
      end;
  end;
end;

[5cek]

Сообщение от StriderX

Механизм весьма unstable, если без шуток - может и захват проглючить, может и счетчик-ссылок не отработать, выдаст утечку. Однако на типовых сценариях работает отлично.
На практике часто используем такую конструкцию для отложенных вызовов, но передачу параметров делаем в явном виде без захвата: в виде массива вариант.

    ...
    MouseClick.Register(Rect(..), [param1, param2, param3],
                               procedure(params: array of Variant)
                               begin
                               end
                              ); 
    ...

Эта конструкция уже интереснее и в общем виде не требует поддержки анонимок, просто в таком виде проще отслеживать параметры =-)

Я хоть и пользуюсь XE но раз он "unstable" то не сильно хочется пробовать встраивание в рабочий проэкт) хотя и в некоторых случаях будут удобны такие вызовы