Текущий архив: 2007.07.01;
Скачать: CL | DM;
Вниз
Передать процедуру класса в Обычную функцию Найти похожие ветки
← →
DelphiLexx © (2007-05-02 15:45) [0]Как передать метод класса - процедура с var-параметрами обычной функции.
Т.е.
type
TDynArrOfVariant = array of Variant;
TSearchLocateEvent = procedure(var PKList: TDynArrOfVariant) of object;
TMyForm = class(TForm)
public
procedure SearchLocate(var PKList: TDynArrOfVariant);
...
end;
var
MyForm: TMyForm;
function DeleteRow(ProcSearchLocate: TSearchLocateEvent);
////////////////////////////////////////////////////////////////////////
function DeleteRow(ProcSearchLocate: TSearchLocateEvent);
begin
Вот сюда должна передаться процедура TMyForm.SearchLocate;
end;
procedure
TMyForm.SearchLocate(var PKList: TDynArrOfVariant);
begin
//
end;
procedure TMyForm.Button1Click(Sender: TObject);
begin
{Пробую передать вот таким образом, выдается ошибка. Как
быть.}
DeleteRow(SearchLocate)
end;
← →
Reindeer Moss Eater © (2007-05-02 15:53) [1]А не лучше ли передать экземпляр, и вызвать его метод?
← →
DelphiLexx © (2007-05-02 15:57) [2]
> А не лучше ли передать экземпляр, и вызвать его метод?
Нет не лучше
← →
Сергей М. © (2007-05-02 16:07) [3]DeleteRow(@SearchLocate)
Страницы: 1 вся ветка
Текущий архив: 2007.07.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
