Текущий архив: 2003.09.15;
Скачать: CL | DM;

Вниз

Не могу понять, что за фигня...   Найти похожие ветки 

← →
VID ©   (2003-09-02 09:21) [0]


type TSpecTimer = class(TTimer)
Public
FProc: TNotifyEvent;
FParams:String;
end;

Procedure TDM.IntellTableRefresh( Sender:TObject);
begin
try
OpenCloseDataSet(TableNameToDataSet((Sender as TSpecTimer).FParams), opcRefresh)
except end;
end;

Procedure TDM.CreateTableRefreshTimer(Params:String);
Var I:Integer;
begin
For I:=0 To DM.ComponentCount - 1 do
IF DM.Components[I] is TSpecTimer then
With DM.Components[I] as TSpecTimer do
IF (FParams = Params) and ( FProc{Здесь возникает ошибка "[Error] master_dm.pas(635): Not enough actual parameters"} = IntellTableRefresh) then exit;
CreateSpecTimer(3, IntellTableRefresh, Params);
end;


---

← →
MBo ©   (2003-09-02 09:28) [1]

@FProc

---

← →
VID ©   (2003-09-02 09:39) [2]

IF (FParams = Params) and (@FProc = @IntellTableRefresh){Здесь: [Error] master_dm.pas(636): Variable required} then exit;

---

← →
VID ©   (2003-09-02 09:42) [3]

а если писать:
IF (FParams = Params) and (@FProc = IntellTableRefresh){то здесь: [Error] master_dm.pas(636): Not enough actual parameters} then exit;

---

← →
Nikolay M. ©   (2003-09-02 10:06) [4]

А если

var
tmp : TNotifyEvent;
begin
...
tmp := IntellTableRefresh;
if (@ tmp = @FProc) then
...
end;

Ногами не бить :)

---

← →
Романов Р.В. ©   (2003-09-02 10:10) [5]

насколько я помню @@FProc
В любом случае почитай в справке описание оператора @

---

← →
VID ©   (2003-09-02 12:18) [6]

to Nikolay M.: Именно так я и сделал, по совету одного знакомого :)

Спасибо всем :)

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c