急啊，急啊急，真急啊！一个初始化的问题！

Question

var
  QryLog : TQuery;
。
begin
。
    QryLog := TQuery.Create(Application);
    QryLog.DatabaseName := 'TccTbl';
。
    if Active then close;
        SQL.Clear;
        SQL.Add(StrQry);
        ExecSQL;
      end;
  finally    QryLog.Free;
  end;
这里在编译的时候会提示QryLog没有初始化，我想知道怎样才能叫初始化呢？谢谢各位了。

Answer 1

var
  QryLog : TQuery;
。
begin
。
    QryLog := TQuery.Create(Application);
    try
    QryLog.DatabaseName := 'TccTbl';
。
    with QryLog do begin    
        if Active then close;
        SQL.Clear;
        SQL.Add(StrQry);
        ExecSQL;
    end;
  finally    QryLog.Free;
  end;

Answer 2

在Delphi集成环境中调试的时候不行，运行可执行文件就行了。

Answer 3

to caoyq：是的，但是我想让程序出现这种非致命性错误啊！行吗？

Answer 4

试试用QryLog := TQuery.Create(nil);
    

Answer 5

to chamcham_wh
还是不行啊，这个NIL和APPLICATION有什么区别吗？

Answer 6

我已经解决了，关键是把CREATE放在TRY的外面就行了！散分！