Результат запроса в ячейку

[artemavd]

Помогите пожалуйста с выводом результата запроса. Нужно: вывести результат запроса в ячейку StringGrid-a. Делаю такой запрос:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Form1.Query1.Active:=False;
 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Text:='SELECT NUMBER FROM words_1 WHERE WORD= ' + QuotedStr(StringGrid1.Cells[0,0])+'';
 Form1.Query1.Active:=True;
 Form1.StringGrid1.Cells[0,1]:=Form1.Query1.FieldByName('NUMBER').AsString;
end;

Но, результат никуда не выводится . Смысл запроса: получить номер из таблицы для той буквы, которая введена в конкретную ячейку. Только номер и вставить его в другую ячейку. Кто может помочь?

[Yurk@]

а ты уверен, что в результате получил какое-то число? ... если он ничё не нашел - тебе будет пустое поле

[S@fer]

для начала проверь есть ли у тебя записи в полученном запросе.

Form1.Query1.Active:=False;
 Form1.Query1.SQL.Clear;
 Form1.Query1.SQL.Text:='SELECT NUMBER FROM words_1 WHERE WORD= ' + QuotedStr(StringGrid1.Cells[0,0])+'';
 Form1.Query1.Active:=True;
Showmessage(IntToStr(Form1.Query1.RecordCount));

[Serge_Bliznykov]

на пустоту запрос можно проверить и через свойство IsEmpty:

if Not Form1.Query1.IsEmpty then
  Form1.StringGrid1.Cells[0,1]:=Form1.Query1.FieldByName('NUMBER').AsString
else
  Form1.StringGrid1.Cells[0,1]:='#нет данных#';