Buscar por:

Selecionar mais de um campo no dbgrid e jogar dados selecionados em uma listbox

Código

//para esta dica foram usados os seguintes componentes:

-DBGrid

-ListBox

-BitBtn

-Table

-DataSource

//conecte o DBGrid a uma tabela mostrando todos seus dados..

(isso todos devem saber fazer..hehe.)

//agora na propriedade Options do DBGrid mude os dois valores:

-> dgRowSelect > True

-> dgMultiSelect > True

//agora eh soh colocar o seguinte codigo no BitBtn:

procedure TForm1.BitBtn1Click(Sender: TObject);

var

  I:Integer;

  Bookmarklist:Tbookmarklist;

  Bookmark:TBookmarkStr;

begin

Bookmark:=table1.Bookmark;

try

    ListBox1.Items.Clear;

    Bookmarklist:=dbgrid1.SelectedRows;

    for I:=0 to Bookmarklist.Count - 1 do

    begin

          table1.Bookmark:=bookmarklist[I];

          listbox1.Items.Add(table1.fieldbyname('campo_do_grid').asstring);

    end;

finally

      table1.Bookmark:=bookmark;

      end;

end;

//campo_do_grid : eh o nome do campo q vc ira jogar na listbox...no caso o nome usado no banco de dados

//eh isso ai...uma pequena dica pra ajudar na imaginacao..

//tirada da biblia do delphi7 de Marcos Cantu.

//Postado: Bad Paralizia.