Delphi Результат Sql Запроса В Переменную

Получение результата SQL запроса в переменную - частая задача в Delphi. Для этого в Delphi есть несколько способов, но один из самых простых - использовать компонент TADOQuery. Он позволяет выполнить SQL запрос и получить результат в виде таблицы данных, которую можно обойти в цикле. Например:

var
  Query: TADOQuery;
  ResultValue: Variant;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := MyADOConnection;
    Query.SQL.Add('SELECT VALUE FROM MYTABLE WHERE ID = 1');
    Query.Open;
    if not Query.Eof then
      ResultValue := Query.FieldByName('VALUE').Value;
    Query.Close;
  finally
    Query.Free;
  end;
end;

В приведенном примере мы создаем объект TADOQuery, устанавливаем ему соединение с базой данных (MyADOConnection) и выполняем запрос SELECT. Затем мы проверяем, что в результате есть хотя бы одна строка, и заносим значение поля VALUE в переменную ResultValue. Наконец, мы закрываем запрос и освобождаем память, выделенную для объекта TADOQuery.