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

Вниз

Вопросик   Найти похожие ветки 

← →
Desdechado   (2002-02-25 11:15) [3]

qry.SQL.Text := "select log from tbl";
qry.Open;
i := 0;
while( not qry.EOF ) do
begin
x[ i ]:=( qry.FieldByName( "log" ).AsInteger = 1 );
Inc( i );
qry.Next;
end;
qry.Close;

в примере подразумевается, что поле LOG числовое и массив готов принять все значения.

---

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

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

Наверх

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