Performance - otimizando calcfields

Top  Previous  Next

Procedure TForm1.BigProcessingFunction;

begin

  Table1.OnCalcFields := nil;

  

 <Do massive processing here!>

 

  Table1.OnCalcFields := Table1OnCalcFields;

 

end;