Получения данных типа String после запроса ADOquery

[_PROGRAMM_]

Приветствую всех жителей форума. Давно я не заходил.

Вот возникла ситуация. Есть, допустим, таблица:
(Визуально построю)

--
ключ login pass icq и т.д.
1 psih 111116 333
2 faq 12345 333
3 DOOM 123456 334
--
Надеюсь понятно.

Мне нужно получить после SQL запроса

SELECT * FROM table WHERE icq=333;

Что-то вроде строк.
Например "1, psih, 111116, 333"
"1, faq, 12345, 333"
В общем, как-то так. Неважно как это будет. Можно получать по отдельности все данные. Главное - узнать, каким образом это сделать. Желательно без сетки DBGrid.
Заранее приогомнейшее спасибо.

[$T@LKER]

После выполнение запроса обращайтесь к его полям!

fileds[nomer].AS{тип данных-скорее всего СТРИНГ}

И можете заносить значение поля куда вам нужно!

[OlegVE]

Здравствуйте

var strVar: string;
i: integer;
...
strVar := '';
while not ADOQuery1.Recordset.EOF do
begin
  for i := 0 to ADOQuery1.Fields.Count - 1 do
   strVar := strVar + VarToStr(ADOQuery1.Recordset.Fields[i].Value)  + ', ';
  ADOQuery1.Recordset.MoveNext;
end;

До свидания

[_PROGRAMM_]

Что означает эта строка?

ADOQuery1.Recordset.EOF

[Serge_Bliznykov]

Что означает эта строка?

признак того, что датасет (набор данных) уже закончился (т.е. дошли до конца набора данных)


Не понял, устроило ли Вас решение от OlegVE
Поэтому рискну предложить свой вариант...

а если так:

var s : string;
     i: integer;
...
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'SELECT * FROM table WHERE icq=333;';
ADOQuery1.Open;

Memo1.Lines.Clear;
while not ADOQuery1.EOF do
begin
  s := '';
  for i := 0 to ADOQuery1.Fields.Count - 1 do
     s := s + ADOQuery1.Fields[i].AsString  + ', ';
  Memo1.Lines.Append(s);
  ADOQuery1.Next;
end;
ADOQuery1.Close;

[_PROGRAMM_]

Спасибо большое за объяснение. Теперь все понял.
----
15:30
Хотел спросить, но сам нашел ответ. Вдруг кто-то попадет в эту тему. Узнать имя поля(столбца) можно так

ADOquery1.Fields[i].FullName