Подскажите пожалйста в чем ошибка
массиву присваивается результат Запроса 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: пользуемся тегами.
23.05.2014, 07:10
в чем ошибка в коде
Древовидный вид