| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Позиция в таблице [D7, XP]

Golden ©   (2008-11-28 12:28:00) 

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

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

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

 Table1.First;

 Table1.MoveBy(pos);

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

---

Anatoly Podgoretsky   (2008-11-28 12:48:00) [1]

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

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

---

Ega23   (2008-11-28 12:39:00) [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 переоткроешь набор данных, то закладка потеряет валидность.

---

clickmaker   (2008-11-28 12:30:00) [3]

см. GetBookmark

---

Наверх