-
Подскажите пожалйста в чем ошибка массиву присваивается результат Запроса 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;
-
i:=1;
while not ADOQuery2.Eof do
begin
mass[i]:=ADOQuery2.FieldValues['Dx'].asinteger;
ADOQuery2.Next;
inc(i);
end; > верхняя граница массива взята просто так, элементы не превышают > его.
и все же, лучше перестраховаться.
-
А зачем вообще дублировать запрос в массив?
-
Какое сообщение об ошибке?
-
Спасиба все работает!)
-
> fdf (23.05.14 18:57) [4] > > Спасиба все работает!)
а смысл?
|