Подскажите пожалйста в чем ошибка
массиву присваивается результат Запроса adoquery
верхняя граница массива взята просто так, элементы не превышают его.
код такой, это часть, именно с присвоением массиву полученных данных одного столбца ошибка
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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: пользуемся тегами.