Максимум, минимум, DBGrid.

[Карташов А.А.]

Мне срочно нужно узнать, какой код должен быть у кнопки для нахождения максимальной или минимальной записи в DBGrid. Я использую TQuery и TTable. Помогите, а то чувствую не сдам курсовик.

[dosha]

procedure TForm1.Button1Click(Sender: TObject);
var
  max,min:Integer;
begin
ADOQuery1.Recordset.movefirst;
while ADOQuery1.Recordset.EOF=False do
begin
if ADOQuery1.Recordset.Fields[0].Value>max then
  max:=ADOQuery1.Recordset.Fields[0].Value;
if ADOQuery1.Recordset.Fields[0].Value<min then
  min:=ADOQuery1.Recordset.Fields[0].Value;
ADOQuery1.Recordset.movenext;
end;
end;

[Карташов А.А.]

Во первых: я не использую TADOQuery, я использую TQuery.
Во вторых: я оплошал с вопросом: нужно чтобы запись с максимальным(минимальным) элементом в поле отображалась в гриде.

[Stilet]

Тогда

Query.Sql.Text:='Select max(некое поле по которому выичсляется) from Таблица'
query.Open;