xe4 GetBookmark GotoBookmark

最新推荐文章于 2019-07-03 10:04:58 发布

原创最新推荐文章于 2019-07-03 10:04:58 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

XE4 专栏收录该内容

104 篇文章

订阅专栏

本文介绍在XE4环境下如何正确使用TBookmark进行记录定位，包括获取书签、返回到指定记录位置的方法，并展示了如何在不同记录间切换同时保持数据一致性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

XE4 不用把 TBookmark  强制转换为void *了

void __fastcall TForm1::DS2DataChange(TObject *Sender, TField *Field)
{
  if (Customers->Bof)
	Button2->Enabled = False;
  else
	Button2->Enabled = True;
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TBookmark SavePlace;
  Variant PrevValue;
 
  // Get a bookmark so that you can return to the same record.
  SavePlace = Customers->GetBookmark();
  Customers->FindPrior();// Move to prior record.
  PrevValue = Customers->FindField("Field1")->Value; // Get the value.
  // Move back to the bookmark.
  // This may not be the next record anymore,
  // if something else is changing the dataset asynchronously.
  Customers->GotoBookmark(SavePlace);
  Customers->Edit();
  Customers->FindField("Field1")->Value = PrevValue; // Set the value.
}

XE4

pDS->GotoBookmark((void *)DBGridEh2->SelectedRows->Items[i].c_str());

change to

pDS->GotoBookmark((TBookmark )DBGridEh2->SelectedRows->Items[i]);

 for (int i = 0; i <DBGrid1->SelectedRows->Count; i++)
  {
   ADOQueryPub->GotoBookmark((TBookmark)DBGrid1->SelectedRows->Items[i]);
   ADOQueryPub->FieldByName("ComputerName")->AsString.Trim();
  }