Bookmark

[Shaman2]

Нижеследующий код приводит к сбоям если использую компонент дерева с большой вложенностью.

 var ABookmark: TBookMark;
  FDBTreeView.FDataLink.DataSet.DisableControls;
  try
    ABookmark := FDBTreeView.FDataLink.DataSet.GetBookmark;
    try
      ANode.HasChildren := FDBTreeView.LockedLocate(FDBTreeView.FParentFieldName, Result.FKeyFieldValue, []);
      FDBTreeView.FDataLink.DataSet.GotoBookmark(ABookmark);
    finally
      FDBTreeView.FDataLink.DataSet.FreeBookmark(ABookmark);
    end;
  finally
    FDBTreeView.FDataLink.DataSet.EnableControls;
  end;

Проблема именно в работе с букмарками, так как переписав код вот так все работает на ура

  var ID: Integer;
  FDBTreeView.FDataLink.DataSet.DisableControls;
  try
    ID := FDBTreeView.FDataLink.DataSet.Fields[0].AsInteger;
    try
      ANode.HasChildren := FDBTreeView.LockedLocate(FDBTreeView.FParentFieldName, Result.FKeyFieldValue, []);
      FDBTreeView.FDataLink.DataSet.Locate(FDBTreeView.FDataLink.DataSet.Fields[0].FieldName,ID,[]);
    finally
    end;
  finally
    FDBTreeView.FDataLink.DataSet.EnableControls;
  end;

[Shaman2]

Ну и на всякий случай:

function LockedLocate(const AFieldName: string; AValue: Variant; AOptions: TLocateOptions): Boolean;
begin
BeginUpdate;
try
Result := FDataLink.DataSet.Locate(AFieldName, AValue, AOptions)
finally
EndUpdate;
end;
end;

[madorin]

@Shaman2 что за сбои получаете? какой call stack?

[Shaman2]

@Shaman2 что за сбои получаете? какой call stack?

В данном случае идет обход дерева, просто при этой процедуре при большой вложенности получаю не те данные и идет позиционирование дерева на другой ветке дерева