| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
cadu27
Experiente
Registrado: Sábado, 29 de Dezembro de 2007
Mensagens: 434
|
 Enviada: Ter Jul 23, 2013 5:06 pm Assunto: Dbgrid e ListBox |
 |
|
Boa tarde Pessoal, como faço para pegar os registros de um Dbgrid e listar em um listbox????
Obrigado |
|
| Voltar ao Topo |
|
 |
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Ter Jul 23, 2013 5:22 pm Assunto: |
|
|
Como seria a saída? Visto que podem existir diversas colunas para cada registro...
~bye |
|
| Voltar ao Topo |
|
|
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Ter Jul 23, 2013 5:41 pm Assunto: |
|
|
Tenta assim, | Código: | procedure DBGridToListBox(ADBGrid: TDBGrid; AListBox: TListBox);
var
i: Integer;
s: String;
begin
// passar por todos os registros
ADBGrid.DataSource.DataSet.First;
while not (ADBGrid.DataSource.DataSet.Eof) do
begin
s := '';
// separa todos os campos por ';'
for I := 0 to ADBGrid.Columns.Count - 1 do
s := s + ADBGrid.Columns[I].Field.AsString + ';';
Delete(s, Length(s), 1);
AListBox.Items.Add(s);
ADBGrid.DataSource.DataSet.Next;
end;
end; |
Ps.: Fiz direto pelo site, avisa se tiver algum erro de sintaxe...
~bye |
|
| Voltar ao Topo |
|
|
cadu27
Experiente
Registrado: Sábado, 29 de Dezembro de 2007
Mensagens: 434
|
| Enviada: Ter Jul 23, 2013 5:49 pm Assunto: |
|
|
Beleza vou tentar e posto o resultado,
eu preciso na verdade so da primeira coluna, to usando o mysql, com zeos, |
|
| Voltar ao Topo |
|
|
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Ter Jul 23, 2013 5:57 pm Assunto: |
|
|
Hmm, então o exemplo funciona... se você quiser somente a primeira coluna não é necessário o for. Passe direto o index da coluna desejada.
Ficaria mais ou menos assim: | Código: | AListBox.Add(ADBGrid.Columns[0].Field.AsString);
|
~bye |
|
| Voltar ao Topo |
|
|
cadu27
Experiente
Registrado: Sábado, 29 de Dezembro de 2007
Mensagens: 434
|
| Enviada: Qua Jul 24, 2013 10:32 am Assunto: |
|
|
| Valeu Cesar Rocha, obrigado |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
