Buscar por:

Usando book Marks de maneira fácil

Código

Olá amigos, estou trazendo hoje uma dica rápida para quem deseja usar o bookmark. Primeiro vamos esclarecer o que é BookMark e depois mostrar uma das mais simples maneiras de utilizar esse recurso.

O que é BookMark ?

Bookmark é um artifício que temos a nossa disposição para marcar um registro no ClientDataSet e depois localizá-lo rapidamente. Imagine o BookMark como um marcador de páginas (seria essa a tradução ao pé da letra), sendo assim você marca o registro no qual quer retornar futuramente, navega pelos outros registros do ClientDataSet e quando desejar, faz a chamada para o seu bookmark e retorna ao registro marcado. Parece fácil não é? 

Vou colocar aqui um trecho pequeno do código, o conteúdo completo da dica você poderá acessar no meu blog http://josehenriquebr.blogspot.com/2009/11/usando-bookmark-de-maneira-simples.html

Aí vai o trecho com a atribuição de bookmarks de maneira simples

interface

...

 private

    { Private declarations }

    BookMarkString : String;

...

implementation

{$R *.dfm}

procedure TExemploBookMark.BitBtn1Click(Sender: TObject);

var

  I: Integer;

begin

  CDS.FieldDefs.Add('codigo',ftInteger);

  CDS.FieldDefs.Add('descricao',ftString, 50);

  CDS.CreateDataSet;

  for I := 1 to 10 do

  begin

    CDS.Append;

    CDS.FieldByName('codigo').AsInteger   := i;

    CDS.FieldByName('descricao').AsString := 'Descrição - '+inttostr(i);

    CDS.Post;

  end;

end;

procedure TExemploBookMark.LocalizaBookMarkClick(Sender: TObject);

begin

  CDS.Bookmark := BookMarkString;

end;

procedure TExemploBookMark.MemorizaBookMarkClick(Sender: TObject);

begin

  BookMarkString := Cds.Bookmark;

end;

end.

Vocês perceberam como foi fácil utilizar o bookmark dessa maneira? Para marcar nosso registro utilizamos BookMarkString := Cds.Bookmark; e para retornar ao registro marcado fizemos o contrário CDS.Bookmark := BookMarkString; . 

Lei a dica completa com os fontes no meu blog.

 http://josehenriquebr.blogspot.com/2009/11/usando-bookmark-de-maneira-simples.html

abs!