Текущий архив: 2005.06.29;
Скачать: CL | DM;
Вниз
Как записать указатель на процедуру в масв? Найти похожие ветки
← →
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 его более удобно вызывать.
← →
Юрий Зотов © (2005-06-02 22:28) [3]> Erik1 © (02.06.05 19:54) [2]
При вызове можно делать приведение к TDataTo.
Страницы: 1 вся ветка
Текущий архив: 2005.06.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
