事情是這樣的
我的一個unit
有一個class a

如
a = class
q :tquery


我想在運行時 執行一個 statment, 但中間有一個field是自己想calcfields
我在執行前己把那個新field add了上去, 但當然, 我新起一條sql statment給他運行時可能沒有了

但我想知, 怎樣在這個unit上的class a 為q 這個tquery 加上oncalcfields 這個event

[code delphi]
unit Unit1;

interface

uses
Classes, SysUtils, DB, DBTables;

type
TMyClass = class(TObject)
private
FQuery: TQuery;
procedure MyCalcFields(DataSet: TDataSet);
public
constructor Create; virtual;
end;

implementation

{ TMyClass }

constructor TMyClass.Create;
begin
FQuery := TQuery.Create(nil);
FQuery.OnCalcFields := MyCalcFields; // or FQuery.OnCalcFields := nil;
end;

procedure TMyClass.MyCalcFields(DataSet: TDataSet);
begin
//do something
end;

end.
[/code]

這樣好像不行的