求解！该怎么处理

求解！！！
OraQuery1.Close;
 OraQuery1.Open;
  for i := 1 to OraQuery1.RecordCount do
  begin
  Edit1.Text := INTTOSTR(OraQuery1.RecordCount);
  end;
查询后有多少条记录可以知道，mc是表中的一个字段，现在查询后怎么一起知道mc=1的有多少条记录，query不要再查一遍，代码怎么写？

[解决办法]
自己遍历一下结果集就行呀~
[解决办法]

Delphi(Pascal) code

var  iCount: integer;  iCount := 0;  OraQuery1.first;  while not OraQuery1.eof  do  begin    if OraQuery1.FiledByName('mc').asinteger = 1 then        inc(iCount);    OraQuery1.next;  end;   showmessage(inttostr(iCount));
[解决办法]
１．用另外的一个Query重新查询
２．使用Filter属性
３．循环