procedure TForm1.Button1Click(Sender: TObject);
var
TOTAL:integr;
begin
  TOTAL:=0; 
  Query1.First;
  While not Query1.Eof do
  begin
    if Query1.FieldByName('Price').Value<>0 then//某一列的不为0,你可以用某一個欄位不為0來做判斷值
    TOTAL:=TOTAL 1;
    Query1.Next;
  end;
end;