Tquery

← →
dzhagr © (2007-04-18 16:45) [0]

Как в наборе данных TQuery по очереди пролистать все записи одного поля?

← →
Сергей М. © (2007-04-18 16:49) [1]

Примерно так:

Цикл Пока НЕ конец НабораДанных делать нижеследующее
Получить значение интересующего поля
Переместить курсор НабораДанных на следующую позицию
Конец Пока-Цикла

← →
dzhagr © (2007-04-18 16:54) [2]

Подскажите, пожалуйста, конец набора данных и переместить курсор как будет в командах?

← →
Desdechado © (2007-04-18 16:59) [3]

Query.EOF
Query.Next

PS это не команды, это методы класса
PPS "все записи одного поля" - это бред

← →
dzhagr © (2007-04-18 17:13) [4]

ок!
Еще такой вопрос: есть какой-нибудь метод, который перемещает курсор на первую запись набора данных?

← →
Amoeba © (2007-04-18 17:23) [5]

First!

← →
Плохиш © (2007-04-18 17:25) [6]

> Desdechado © (18.04.07 16:59) [3]
> Amoeba © (18.04.07 17:23) [5]

Сколько платют за прокладку между недокодером и справкой?

← →
Desdechado © (2007-04-18 17:46) [7]

Плохиш © (18.04.07 17:25) [6]
Натурой.

← →
Плохиш © (2007-04-18 17:48) [8]

> Desdechado © (18.04.07 17:46) [7]

Хм... посмотрел на пол указанный в твоей анкете и в анкете автора... хм...

> Как в наборе данных TQuery по очереди пролистать все записи
> одного поля?

var bm : TBookmark; With TDataSet do begin DisableControls; bm := GetBookmark; try First; While not Eof do begin FieldByName("Твоё поле").asЧто-там-тебе-нужно; Next; end; finally FreeBookmark(bm); EnableControls; end;

Ega23 © (18.04.07 17:55) [9]
А нафига тебе букмарк? Или возвращайся на него при неудаче/в конце, или убери.
И with TDataset шокирует :)

Спасибо

> А нафига тебе букмарк? Или возвращайся на него при неудаче/в
> конце, или убери.

Ъ... Прям тут писал, забыл Goto поставить...

> И with TDataset шокирует :)

Ну кто хотел, тот понял. Имел ввиду, что любой экземпляр TDataSet.

Tquery Найти похожие ветки