我想定义tquery的一个派生类，使其在execsql前先执行一个showmessage(sql.text);怎么实现呢

Question

我想定义tquery的一个派生类，使其在execsql前先执行一个showmessage(sql.text);怎么实现呢

Answer 1

unit Query1;interfaceuses
  Windows, Messages, SysUtils, Classes, DB, DBTables;type
  TQuery1 = class(TQuery)
  private
    Fdebug:boolean;
    { Private declarations }
  protected
    { Protected declarations }
  public
     procedure ExecSql1;
    { Public declarations }
  published
    property debug:boolean read fdebug write fdebug;
    { Published declarations }
  end;procedure Register;implementation
uses dialogs;
procedure Tquery1.ExecSql1;
begin
   if fdebug then
     ShowMessage(text);
   execsql;
end;procedure Register;
begin
  RegisterComponents('Data Controls', [TQuery1]);
end;end.