Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.04.01;
Скачать: CL | DM;

Вниз

использование bookmark   Найти похожие ветки 

 
LDV   (2011-12-06 14:44) [0]

на сайте embarcadero нашел пример использования bookmark"ов. Почему перед GoToBookmark отсутствует проверка на BookmarkValid?


{
This example uses a button to copy the value of a field in
the previous record into the corresponding field in the
current record.
}
procedure TForm1.Button1Click(Sender: TObject);
var
  SavePlace: TBookmark;
  PrevValue: Variant;
begin
  with Customers do
  begin
   { get a bookmark so that we can return to the same record }
   SavePlace := GetBookmark;
   try
     { move to prior record}
     FindPrior;
     { get the value }
     PrevValue := FindField("Field2").Value;
     {Move back to the bookmark
     this may not be the next record anymore
     if something else is changing the dataset asynchronously }
     GotoBookmark(SavePlace);
     { Set the value }
     Edit;
     FindField("Field2").Value := PrevValue;
     { Free the bookmark }
   finally
     FreeBookmark(SavePlace);
   end;
 end;
end;


 
Медвежонок Пятачок ©   (2011-12-06 14:48) [1]

потому что проверку не вставили в пример


 
Ega23 ©   (2011-12-06 14:48) [2]

Почему перед GoToBookmark отсутствует проверка на BookmarkValid?

Потому, что НД не менялся.



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
2-1323670231
И. Павел
2011-12-12 10:10
2012.04.01
Почему «Return value must be undefined»?


15-1323157523
Pit
2011-12-06 11:45
2012.04.01
Delphi 7, приложение падает, если включена оптимизация


1-1290074442
Дмитрий Белькевич
2010-11-18 13:00
2012.04.01
Есть форма fsMDIChild, как добраться до её fsMDIForm?


15-1322687178
Юрий Зотов
2011-12-01 01:06
2012.04.01
Ищем людей (вакансии в Москве)


4-1255685158
maxistent
2009-10-16 13:25
2012.04.01
Работа с USB девайсом собственного производства