Запись в переменную

[Ardarik]

Есть запрос

ADOQuery2.Close;
ADOQuery2.SQL.Text := ('SELECT `Наименование`,`Количество` FROM spec WHERE id_device='+c+';');
ADOQuery2.Open;

Как мне Наименование и Количество записать в переменную ?
Когда одно значение использую

While not ADOQuery2.Eof do
  begin
     c:=ADOQuery2.Fields[0].AsString;

     ADOQuery2.Next;
  end;

[Sciv]

Ну например так:

While not ADOQuery2.Eof do
  begin
     c:=ADOQuery2.Fields[0].AsString+'='+ADOQuery2.Fields[1].AsString;

     ADOQuery2.Next;
  end;

И далее при необходимости парсить переменную по символу "равно", получая количество и наименование.

Или объявить переменную типа record с полями name, count и писать в эти поля соответственно наименование и количество.

Вариантов много, эти самые очевидные. Пока не уточните, зачем это все надо и как Вы эту переменную потом используете - точного варианта кроме Вас никто не подберет. Только предложения

[Ardarik]

Мне нужны эти значение чтоб поместить в запрос. Вроде понял как спасибо

[Ardarik]

Блин. Где то косяк. Не пойму что не так

procedure TForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ('UPDATE project_name SET status= 1 WHERE `id_проект`='+Combobox1.Text+';');
ADOQuery1.ExecSQL;

ShowMessage('Проект №'+Combobox1.Text+' запущен в производство.');

ADOQuery1.Close;
ADOQuery1.SQL.Text := ('SELECT `id_device` FROM device WHERE id_device IN (SELECT id_device, `Количество` FROM project WHERE id_project_name = '+(ComboBox1.Text)+')');
ADOQuery1.Open;

While not ADOQuery1.Eof do
  begin
     d:=ADOQuery1.Fields[0].AsString;
     cd:=AdoQuery1.Fields[1].AsInteger;

ADOQuery2.Close;
ADOQuery2.SQL.Text := ('SELECT  `Наименование`, `Количество` FROM spec WHERE id_device='+ d +';');
ADOQuery2.Open;

  While not ADOQuery2.Eof do
  begin
     n:=ADOQuery2.Fields[0].AsString;
     cn:=ADOQuery2.Fields[1].AsInteger;

     ADOQuery3.Close;
ADOQuery3.SQL.Text := ('INSERT INTO `Get` (id_project_name, id_device, id_name, number)  VALUES('+(ComboBox1.Text)+', '+d+', '+n+', '+(IntToStr(cd*cn))+');');
ADOQuery3.ExecSQL;

     ADOQuery2.Next;
  end;
  ADOQuery1.Next;
  end;

end;

[Stilet]

IN (SELECT id_device, `Количество`

Тут должен возврашаться одномерный набор а не матрица. Выбирай - либо IN для количества, либо для id_device - должно быть что-то одно.

[Stilet]

IN (SELECT id_device, `Количество`

Тут должен возврашаться одномерный набор а не матрица. Выбирай - либо IN для количества, либо для id_device - должно быть что-то одно.