Помогите с поиском БД делфи

[sasha_14-88]

База называется прогноз погоды. и так нужно определить среднюю температуру и выполнить поиск дней,когда температура была выше средней. вот написал, но выдает ошибку "аргументы имеют неверный тип,выходят за пределы допустимого диапазона или вступают в конфликт друг с другом" вот код:

procedure TForm1.N8Click(Sender: TObject);
begin
s:=0;
i:=0;
  ADOquery1.First;
while not(ADOquery1.Eof) do
  begin
  S:=S+ADOquery1.FieldByName('baza_temper').AsInteger;
  ADOquery1.Next;
  end;
ADOquery1.RecNo:=i;  
    w:=ADOquery1.RecNo;
    t:=s/w;
Edit1.Text:= (Format('%3.1f', [t]));
begin
Form1.ADOquery1.Filtered := true;
Form1.ADOquery1.Filter := 'baza_temper>='+QuotedStr(Edit1.Text);
end;
end;

[Stilet]

И на какой же строке ошибка вылезает?

[sasha_14-88]

ошибка при запуске не вылазиет, выходит когда нажимаешь на кнопку поиска! какая ошибка я написал...

[Аватар]

Ошибка обычно на какой-то строке бывает. А в принципе весь код ТС сплошная ошибка

procedure TForm1.N8Click(Sender: TObject);
var s: Integer;
    t: Real;
begin
  if ADOQuery1.RecordCount=0 then Exit;
  s:=0;
  ADOquery1.First;
  while not ADOquery1.Eof do
  begin
    s:=s+ADOquery1.FieldByName('baza_temper').AsInteger;
    ADOquery1.Next;
  end;
  t:=s/ADOQuery1.RecordCount;
  Edit1.Text:=Format('%3.1f', [t]);
  s:=Trunc(t);
  if s<t then Inc(s);
  ADOquery1.Filter:=Format('baza_temper>=%d',[s]);
  ADOquery1.Filtered := True;
end;

[sasha_14-88]

Сообщение от Аватар

Ошибка обычно на какой-то строке бывает. А в принципе весь код ТС сплошная ошибка

procedure TForm1.N8Click(Sender: TObject);
var s: Integer;
    t: Real;
begin
  if ADOQuery1.RecordCount=0 then Exit;
  s:=0;
  ADOquery1.First;
  while not ADOquery1.Eof do
  begin
    s:=s+ADOquery1.FieldByName('baza_temper').AsInteger;
    ADOquery1.Next;
  end;
  t:=s/ADOQuery1.RecordCount;
  Edit1.Text:=Format('%3.1f', [t]);
  s:=Trunc(t);
  if s<t then Inc(s);
  ADOquery1.Filter:=Format('baza_temper>=%d',[s]);
  ADOquery1.Filtered := True;
end;

я попросил помощи, а не осуждений или еще чего-нибудь, сами не знаете, не пишите! за любую помощь буду признателен! прошу не с чистого листа написать код, а помочь разобраться в ошибке, разве не для этого создан этот форум?!

[Аватар]

а помочь разобраться в ошибке, разве не для этого создан этот форум?!

Для этого. Я и написал - весь код сплошная ошибка. И переделал его. Теперь сравнивайте. Что не так?

[sasha_14-88]

прошу прощения! на код не обратил внимания... Спасибо!

как в sql этот код переделать? Очень нужно

[Аватар]

Так, например

SELECT * FROM MyTable WHERE baza_temper>=(SELECT AVG(baza_temper) FROM MyTable)