怎么用Delphi 7 读取SQL表格有多少行数据,把行数保存到一个变量里下面的能实现吗具体怎么做

Question

我就想知道怎么用Delphi 7 读取SQL表格有多少行数据,把行数保存到一个变量里下面的能实现吗具体怎么做 
                                  谢谢 with data1.ADOQuery1 do  
    begin  
      close;  
      sql.Clear;  
      sql.Add('SELECT COUNT(*) FROM 信息表 ');  
      open; 
      end;

Answer 1

...
sql.Add('SELECT COUNT(*) as Counter FROM 信息表 ');   
open;  ADOQuery1.FieldByName('Counter').AsInteger

Answer 2

var 
  tempInt : Integer;
with data1.ADOQuery1 do   
    begin   
      close;   
      sql.Clear;   
      sql.Add('SELECT COUNT(*) as IntCount FROM 信息表 ');   
      open;  
    end;tempInt :=data1.ADOQuery1.FieldByName('IntCount').asInteger;