Текущий архив: 2009.01.11;
Скачать: CL | DM;

Вниз

Позиция в таблице   Найти похожие ветки 

← →
Golden   (2008-11-28 12:28) [0]

Знающие люди, дайте совет. Работаю с компонентом Table (BDE) отображаю в DBGrid. Мне необходимо запоминать положение курсора в таблице, затем после некоторых действий в таблице, установить курсор на прежнее место.  

Сейчас делаю так:

var
 pos : integer;
begin
 pos := Table1.RecNo;

 Table1.First;

 Table1.MoveBy(pos);

Он перемещает все время на одну позицию ниже ... Как написать правильно ?

---

← →
clickmaker ©   (2008-11-28 12:30) [1]

см. GetBookmark

---

← →
Ega23 ©   (2008-11-28 12:39) [2]

> Он перемещает все время на одну позицию ниже ... Как написать
> правильно ?
>



var
 bm:TBookmark;
begin
 with DataSet do
 begin
   bm := GetBookmark;
   DisableControls;
   try
     First;
     while not Eof do
     begin
        ......  Что-то делаем с записями
        Next;
     end;
   finally
     GotoBookmark(bm);
     FreeBookmark(bm);
     EnableControls;
   end;
 end;
end;

И самое главное - если ты после запоминания Bookmark переоткроешь набор данных, то закладка потеряет валидность.

---

← →
Anatoly Podgoretsky ©   (2008-11-28 12:48) [3]

> Golden  (28.11.2008 12:28:00)  [0]

Значить POS равен 1
Делай переход по Locate, он для этого и предназначен.

---

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

Текущий архив: 2009.01.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c