Показать сообщение отдельно
  #1  
Старый 23.05.2014, 07:10
abcd abcd вне форума
Прохожий
 
Регистрация: 23.05.2014
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию в чем ошибка в коде

Подскажите пожалйста в чем ошибка
массиву присваивается результат Запроса adoquery
верхняя граница массива взята просто так, элементы не превышают его.

код такой, это часть, именно с присвоением массиву полученных данных одного столбца ошибка

Код:
procedure TForm8.BitBtn2Click(Sender: TObject);
var
mass: array[1..30] of integer;
i, n, a: integer;
c: real;
s: string;
begin
ADOQuery2.Active:=False;
ADOQuery2.Parameters.ParamByName('a').Value:=edit1.text;
ADOQuery2.Parameters.ParamByName('b').Value:=edit2.text
ADOQuery2.Active:=True;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
  mass[i]:=ADOQuery2.FieldValues['Dx'].asinteger; почему то здесь fieldbyName не показывается, а должна была эта функция использоваться
   ADOQuery2.Next;
end;
MAD: пользуемся тегами.
Ответить с цитированием