Форум: "Базы";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Вниз

Результат запроса -> в переменную (массив)   Найти похожие ветки 

← →
User_OKA   (2002-01-31 06:52) [4]

Я функцию делаю:
function TForm.X:variant;
var i:integer;
begin
Result:=VarArrayCreate([0..10],varVariant);
with TIBQuery do begin
//запрос, при этом результат - обязательно 1 запись,
//а кол-во полей не больше размерности Result
Open;
for i:=0 to FieldCount-1 begin
Result[i]:=Fields[0].AsValue;//неплохо бы на NULL проверить
end;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c