Moacir, Era isso mesmo que eu queria. Valeu, obrigado!
sds Adjalma ________________________________ De: Moacir - GMail <prism...@gmail.com> Para: delphi-br@yahoogrupos.com.br Enviadas: Sáb, Outubro 3, 2009 10:50:19 AM Assunto: Re: [delphi-br] Dados da tabela para array dinâmico Adjalma, me ocorreu que vc pode fazer o mesmo usando records.. Na seção 'type' declare: tDadosCliente = record Id : Integer; Nome : string; end; Depois é só alterar a rotina do botão: procedure TForm1.Button4Click ( Sender: TObject ); var i: InteGer; vetor_string_ dinamico: array of tDadosCliente; begin ClientDataSet_ Clientes. Close; ClientDataSet_ Clientes. Open; ClientDataSet_ Clientes. First; i := 1; while not ClientDataSet_ Clientes. Eof do begin SetLength( vetor_string_ dinamico, i+1 ); vetor_string_ dinamico[ i].Id := ClientDataSet_ ClientesID. AsInteger; vetor_string_ dinamico[ i].Nome := ClientDataSet_ ClientesNome. AsString; i := i+1; ClientDataSet_ Clientes. next; end; end; Sucesso !! Moacir Adjalma Costa escreveu: > Bom dia! > > Aguém poderia me ajudar informando como posso inserir dados de uma tabela em > um Array dinâmico? > > Tentei fazer da forma abaixo, mas está dando erro. > > procedure TForm1.Button4Click ( Sender: TObject ); > > var i: InteGer; > > vetor_string_ dinamico: array of array of string; > > TamTabela: InteGer; > > begin > > ClientDataSet_ Clientes. Close; > ClientDataSet_ Clientes. Open; > > TamTabela := ClientDataSet_ Clientes. RecordCount; > > SetLength( vetor_string_ dinamico, TamTabela, 2 ); > > ClientDataSet_ Clientes. First; > > i := 1; > > while not ClientDataSet_ Clientes. Eof do > begin > vetor_string_ dinamico[ i,1] := ClientDataSet_ ClientesID. AsString; > vetor_string_ dinamico[ i,2] := ClientDataSet_ ClientesNome. AsString; > i := i+1; > ClientDataSet_ Clientes. next; > end; > > end; > > > ____________ _________ _________ _________ _________ _________ _ > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbusca dos.yahoo. com > > [As partes desta mensagem que não continham texto foram removidas] > > > > ------------ --------- --------- ------ > > ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
