![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать что это последняя запись? [D6, IB6.x, FireBird]
Тип © (2003-04-18 14:14:00)Мастаки, помогите!
Как при переборе записей:
...
while not Eof do
begin
...
//проверить - не последняя ли это запись?
Next;
end;
...
Anatoly Podgoretsky (2003-04-18 16:25:00) [1]Понял неправ
Johnmen (2003-04-18 16:15:00) [2]>Anatoly Podgoretsky © (18.04.03 16:06)
>но все равно неправильно, надо убрать первый Q.Prev;,
Почему же ?
Anatoly Podgoretsky (2003-04-18 16:06:00) [3]Я не посмотрел, что у него цикл до BOF, но все равно неправильно, надо убрать первый Q.Prev;, но все равно и это лишнее достаточно встать на последнюю запись, запомнить нужное, потом на первую и дальше все по существующему алгоритму, только с проверкоей на последнею запись, по крайней мере он так объяснил.
Johnmen (2003-04-18 15:57:00) [4]>Жук © (18.04.03 15:29)
Вообще-то, Val © (18.04.03 15:14) все правильно.
У тебя - не совсем...:)
Жук (2003-04-18 15:29:00) [5]>Val © (18.04.03 15:14)
Q.Last;
repeat
Q.Prev;
//делаем себе ссылки или что угодно
until Q.Bof
Anatoly Podgoretsky (2003-04-18 15:15:00) [6]Зачем ему две последнии записи?
Val (2003-04-18 15:14:00) [7]может быть так?
Q.Last;
Q.Prev;
while not Q.Bof do
begin
//делаем себе ссылки или что угодно
Q.Prev;
end;
Verg (2003-04-18 14:56:00) [8]
last;
id := fieldbyname("id").Value;
first;
while not Eof do
begin
...
if FieldByName("id").Value = id then //последняя запись
Next;
end;
Anatoly Podgoretsky (2003-04-18 14:35:00) [9]Если тебя не волнует, как знать, что находясь на данной записи, что это последнея, то сходи они раз не нее и запомни ее характеристики.
Тип (2003-04-18 14:31:00) [10]
> Никак пока не уйдешь с нее
понятно... значит алгоритм надо менять....Сенкс.
Anatoly Podgoretsky (2003-04-18 14:26:00) [11]Никак пока не уйдешь с нее
Тип (2003-04-18 14:25:00) [12]я в цикле формирую структуру в виде html ссылок, надо чтобы последнюю не делало ссылкой.
Mike Kouzmine (2003-04-18 14:22:00) [13]while not Eof do
begin
...
//проверить - не последняя ли это запись?
Next;
end;
Последняя запись