RE: Вопрос по триггерам на представления

Wed, 18 Apr 2007 06:08:14 -0700 

>>сделайте мне так чтобы в наследнике сразу два метода Insert вызывалось. 
>>Вот заготовка на один метод. Сделайте второй пжлст.
>>class View : Table
>>{
>>   procedure Insert; override;
>>   begin
>>   end
>>}

Где-то так ;) А смысл?

Var InsertProcArray[0..32000] of TInsertProcedure;

For i:=0 to 32000 do InsertProcArray:=nil;
//-
InsertProcArray[0]:=ProcZero;
InsertProcArray[10]:=Proc10;
//-
For i:=0 to 32000 do
 begin
   InsertProc:=InsertProcArray[i];
   if (InsertProc<>nil) then InsertProc(..bla_bla..);
 End;
//-

WBR,Dmitry Beloshistov AKA [-=BDS=-]

Ответить