BookMark record not found

Delphi

23/03/2020

Estou com um problema onde eu tenho uma tela que faz uma pesquisa e mostra varios registros e a opção de selecionar varios registros.

if FrmPesquisa.FrmSMGrid1.SMDBGridNew.SelectedRows.Count = 0 then
LBookM.Add(FrmPesquisa.CDSPesquisa.GetBookMark)
else
begin
for i := 0 to FrmPesquisa.FrmSMGrid1.SMDBGridNew.SelectedRows.Count - 1 do
begin
FrmPesquisa.CDSPesquisa.GotoBookMark((
FrmPesquisa.FrmSMGrid1.SMDBGridNew.SelectedRows[i]));
LBookM.Add(FrmPesquisa.CDSPesquisa.GetBookMark);
end; {for..i}
end;
end;
LBookM é uma lista do tipo TList onde vai adicionando os bookmark. quando fecho a tela de pesquisa eu percorro o LBookM para pegar os bookMark selecionados.

for i:=0 to LBookM.Count-1 do
begin
CDSPsq.GotoBookMark(TBytes(LBookM[i]));
end;
Quando chega no GotoBookMark da erro de recordnotfound. Não consigo encontrar o problema alguem pode me ajudar ? Estou usando Delphi Rio. Obrigado
Daniel Romanini

Daniel Romanini

Curtidas 0
POSTAR