请问大侠，怎样得到query得到的结果？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
sql:string;
begin
sql:='select count(*) as cc from yuanyoushouchu';
query1.Close;
query1.SQL.clear;
query1.SQL.Add(sql);
query1.Open;
ShowMessage(IntToStr(Query1.FieldByName('cc').AsInteger));
end;

Answer 1

建议使用如下语句实现Query1.SQL.Text := 'select count(*) as Cnt from yuanyoushouchu';
try
  Query1.Open;
  I := Query1.FieldByName('Cnt').AsInteger;
  Query1.Close; //先Open再Close,可以节省系统资源
except
  ShowMessage('不关我的事');
end;

Answer 2

xx:=query1.fieldbynamne('字段1').asvariant;