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

[5cek]

Привет всем, вообщем столкнулся с проблемкой, есть у меня основная программа и dll с процедурами, в них есть следующее объявление типа:

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

В основной программе существует процедура:

procedure TfrmRDPUsers.SetRDPConnection(Param: Pointer);
begin
  Query.Edit;
  Query.FieldByName('id_rdp_connections').AsInteger := Integer(Param);
  Query.Post;
end;

А в DLL есть другая процедура:

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;
      end;
  end;
end;

Так вот, из основной программы пытаюсь передать процедуру в DLL так:

ForToGrid(cxGridDBTableView1.ViewData, Query, SetRDPConnection(P));

Не хочет компилировать ругаясь следующими некрасивыми словами:
E2010 Incompatible types: 'TMyProcedure' and 'procedure, untyped pointer or untyped parameter'

Где я накосячил?

[Аватар]

Для начала параметры должны совпадать тютенька в тютеньку

[5cek]

Сообщение от Аватар

Для начала параметры должны совпадать тютенька в тютеньку

Это я заметил когда перечитал пост, в SetRdpConnection добавил = nil, теперь тютелька в тютельку

[5cek]

Главное если уберу параметр то компилит
Вот так:

ForToGrid(cxGridDBTableView1.ViewData, Query, SetRDPConnection);

[Stilet]

А ты так не передашь.
Максимум что
ForToGrid(cxGridDBTableView1.ViewDa ta, Query, SetRDPConnection);
или
ForToGrid(cxGridDBTableView1.ViewDa ta, Query, @SetRDPConnection);
Но без параметра передаваемой процедуры.

[5cek]

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

А ты так не передашь.
Максимум что
ForToGrid(cxGridDBTableView1.ViewDa ta, Query, SetRDPConnection);
или
ForToGrid(cxGridDBTableView1.ViewDa ta, Query, @SetRDPConnection);
Но без параметра передаваемой процедуры.

Понял, значит параметр дополнительно в процедуру передавать?
Вот так: ForToGrid(cxGridDBTableView1.ViewDa ta, Query, SetRDPConnection, Param);
Я так думал в начале, но хотел как то покрасивше)

[Stilet]

но хотел как то покрасивше

Покрасивше будет передача объекта. Иначе параметры передавай отдельно.

[StriderX]

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

Покрасивше будет передача объекта. Иначе параметры передавай отдельно.

Есть еще один вариант, передать туда интерфейс\анонимку:

   ForToGrid(cxGridDBTableView1.ViewDa ta, Query, 
                 procedure ()
                 begin
                        SetRDPConnection(P);
                 end
                );

Главное такими штуками не увлекаться =-)

[5cek]

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

Есть еще один вариант, передать туда интерфейс\анонимку:

   ForToGrid(cxGridDBTableView1.ViewDa ta, Query, 
                 procedure ()
                 begin
                        SetRDPConnection(P);
                 end
                );

Главное такими штуками не увлекаться =-)

Можно и так, но покрасивше всё таки как Stilet подсказал, передача объекта, чет сразу в голову не пришло спасибо!))

[Stilet]

Есть еще один вариант, передать туда интерфейс\анонимку:

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