30.05.2011, 13:22
|
|
Начинающий
|
|
Регистрация: 19.05.2011
Адрес: Санкт-Петербург
Сообщения: 112
Версия Delphi: 10.1 Berlin
Репутация: 10
|
|
Цитата:
Сообщение от Страдалецъ
Ну собственно загрузить в массив можно так:
Код:
Var i: Integer;
Data: Array of Integer;
begin
SetLength(Data, AdoQuery1.RecordCount);
while not AdoQuery1.Eof
do begin
Data[i] := AdoQuery1.Fields[2].AsInteger;
AdoQuery1.Next;
end;
|
Меткий ответ, спасибо...
|