Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.01.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
15-1226659411
sefon
2008-11-14 13:43
2009.01.11
У кого есть подшивка журнала Моделист-Конструктор ?


2-1228065719
Аврам
2008-11-30 20:21
2009.01.11
проблемы с алгоритмом


9-1176816254
marsel
2007-04-17 17:24
2009.01.11
Glmisc.pas ругается


15-1226294001
Design
2008-11-10 08:13
2009.01.11
Как определить работает ХРManifest или нет?


4-1203014467
AlexeyShestchenko
2008-02-14 21:41
2009.01.11
порядок нахождения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский