编译报错？

Question

QDBCHECK : TQUERY;
begin
 TRY
 QDBCHECK:=TQUERY.Create(APPLICATION.Owner);
 QDBCHECK.DATABASENAME:='MAIN';
 QDBCHECK.SQL.CLEAR;
以上程序中“QDBCHECK : TQUERY;”编译报错。

Answer 1

没有定义Tquery是吧；
要将相应的单元包括进来；我不太记得是哪几个单元了；你可以静态的加一个Tquery控件进来；看看是要包括什么单元；然后应该就可以了；

Answer 2

要将包含TQuery定义的相应的单元包括进来；

Answer 3

QDBCHECK : TQUERY;begin
 TRY
   QDBCHECK:=TQUERY.Create(self);
   QDBCHECK.DatabaseName := database1.DatabaseName;
   QDBCHECK.close;
   QDBCHECK.SQL.CLEAR;
這樣就一定沒有問題了