xe4 GetBookmark GotoBookmark

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();
  }