Как записать указатель на процедуру в масв?

← →
Erik1 © (2005-06-02 18:12) [0]

Есть:
TDataTo = procedure(Raw: TRaw; sCmd: TSendCmd) of object;

RDevCall = record
TyypID: Integer;
Build: TDataTo;
end;

TBuildXML = class
procedure DataToM(Raw: TRaw; sCmd: TSendCmd);
...
end;

const
XMLDevCall: Array[0..5] of RDevCall = (
(TyypID: nModem; Build: TBuildXML.DataToM),
(TyypID: nVorgukaart; Build: TBuildXML.DataToHost),
(TyypID: nStaatIP; Build: TBuildXML.DataToIP),
(TyypID: nTelefoniNumber; TBuildXML.Build: DataToTel),
(TyypID: nCMTS; Build: TBuildXML.DataToCMTS),
(TyypID: nDekooder; Build: TBuildXML.DataToDec));
Разумеется, что так компилироватся небудет. Как сделать с заменой типа Build на pointer тоже понятно. Есть другие варианты?

← →
Alexander Panov © (2005-06-02 19:00) [1]

Erik1 © (02.06.05 18:12)
Как сделать с заменой типа Build на pointer тоже понятно. Есть другие варианты?

А какие сомнения в приведении типов к Pointer?

← →
Erik1 © (2005-06-02 19:54) [2]

Хотелось бы оставить TDataTo его более удобно вызывать.

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