Проверка, является ли число равным одному из чисел, получаемых из запроса Adoquery

[Абдуллаев Рустам]

Есть запрос в Delphi

Adoquery2.SQL.Text:=
'select cab_id from cab_users '+
'Where us_id='+chr(39)+inttostr(c)+chr(39);
Adoquery2.Active:=true;

Он возвращает как я понял несколько значений, т.е cab_id Мне нужно проверить теперь равняется ли одно из этих чисел, числу d, где с d проблем нет. Я делаю так, и никакой реакции, даже ошибок не выдает.

ADOQuery2.First;
for k:=0 to Adoquery2.FieldCount-1
do
begin
if d=adoquery2.Fields[0].AsInteger
then
  begin
  showmessage('Такой кабинет уже есть');
  exit;
  end;
 ADOQuery2.Next;
 end;

[Rekky]

Может никакой реакции нет, потому что совпадений нет?)

[Gorychev]

if d=adoquery2.Fields[0].AsInteger

не [0], а [k]

if d=adoquery2.Fields[k].AsInteger

[Абдуллаев Рустам]

Спасибо Gorychev, но так тоже пробовал, тоже никакой реакции, может я неправильно понимаю логику работы Adoquery?

[Gorychev]

Ну вы блин даете, не

Adoquery2.FieldCount-1

а

ADOQuery1.RecordCount-1

FieldCount - кол-во столбцов
RecordCount - кол-во записей

[Абдуллаев Рустам]

Теперь выдает ошибку List index out of bounds(0).

[soleil@mmc]

проще это все проверить через запрос

Adoquery2.SQL.Text:=
format('select count(cab_id) cnt from cab_users where us_id= %d and cab_id = %d', [c, d]);
Adoquery2.Active:=true;

if Adoquery2.FieldByName('cnt').AsInteger>0 then
    showmessage(format('Кабинет №%d уже есть', [d]));

[Gorychev]

Так попробуйте:

adoquery2.First;
  while not adoquery2.Eof do begin
    if d=adoquery2.Fields[k].AsInteger then  begin
       showmessage('Такой кабинет уже есть');
       exit;
    end;
 ADOQuery2.Next 
end;

[Абдуллаев Рустам]

Сообщение от Gorychev

Так попробуйте:

adoquery2.First;
  while not adoquery2.Eof do begin
    if d=adoquery2.Fields[0].AsInteger then  begin
       showmessage('Такой кабинет уже есть');
       exit;
    end;
 ADOQuery2.Next 
end;

СПАСИБО ОГРОМНОЕ,Gorychev!!! Работает так, как хотелось!