Форум: "Прочее";
Текущий архив: 2012.04.01;
Скачать: [xml.tar.bz2];

Вниз

использование 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.002 c