[vertraut]

Есть база с таблицами. Подключения настроил, через Grid выводит таблицу нормально. Хотел бы чтобы текст SQL запросов брался из переменной, а результат запроса записывался в другую переменную.
Помогите пожалуйста с задачей, а то сижу неделю и не получается.

Код:

procedure TForm1.btn1Click(Sender: TObject);
var i: array of string;
    q: string;
begin
  
  q := 'SELECT AA FROM TABLE WHERE BB = 123';
  DataModule1.qry1.SQL.Text := q;
  DataModule1.qry1.Open;
  i := DataModule1.qry1.Fields[0].AsInteger;
  DataModule1.qry1.Close;

end;

[angvelem]

А чего это ты присваиваешь значение неинициализированной переменной?

Код:

  i := DataModule1.qry1.Fields[0].AsInteger;

измени хотя бы так:

Код:

  SetLength(i, Length(i) + 1);
  i[Length(i) - 1] := DataModule1.qry1.Fields[0].AsInteger;