Como selecionar tudo que há dentro de um DBGrid

[Luftwaffe 0]

Fala galera por favor veja se vocês podem me ajudar estou prescisando selecionar tudo que há dentro de um dbgrid quando é apertado um botão veja

 

 

procedure TFormOperacCorte.BitBtn2Click(Sender: TObject);

begin

TabCorteAcao.First

while not TabCorteAcao.Eof then

begin

//Aqui eu não sei o que coloco para ir selecionando até o final

 

end;

end.

 

POR FAVOR AJUDEM _ME

 

 

Título Editado!

[marcio.theis 3]

Uma das formas seria:

 

procedure TForm1.BitBtn1Click(Sender: TObject);beginTable1.First;while not Table1.Eof do	begin	DBGrid1.SelectedRows.CurrentRowSelected:=True;	Table1.Next;	end;end;

Somente precisa habilitar a opção MultiSelect do seu DBGrid, esta opção enta dentro do Options

[Luftwaffe 0]

Uma das formas seria:

 

procedure TForm1.BitBtn1Click(Sender: TObject);beginTable1.First;while not Table1.Eof do	begin	DBGrid1.SelectedRows.CurrentRowSelected:=True;	Table1.Next;	end;end;

Somente precisa habilitar a opção MultiSelect do seu DBGrid, esta opção enta dentro do Options

olha só eu fiz isso -->

 

procedure TFormOperacCorte.BitBtn1Click(Sender: TObject);

begin

while not TabCorteAcao.Eof do

begin

dbGrid1.SelectedRows.CurrentRowSelected:=true;

TabCorteAcao.Next;

end;

end;

 

Mais o problema é que se eu não marcar a primeira opção não seleciona a primeira sim da que está selecionada pra baixo como faço para cara marcar tudo mesmo que estaja marcada a ultima linha..???

[marcio.theis 3]

Coloca uma validação no laço while...

[Luftwaffe 0]

Coloca uma validação no laço while...

Vlw Theis eu consegui, mais nem validadei coloquei um first antes veja sóbegin TabCorteAcao.First; while not TabCorteAcao.Eof do begin dbGrid1.SelectedRows.CurrentRowSelected:=true; TabCorteAcao.Next; end;end;Valeu cara muito obrigado....

[marcio.theis 3]

Hummm... beleza... Eu que entendi errado então...

Bom que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif