Adjalma, Vc esta usando o setlength da forma incorreta. Veja como seria, no teu caso:
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; i := 0; while not ClientDataSet_ Clientes. Eof do begin SetLength( vetor_string_ dinamico, i+1 ); vetor_string_ dinamico[ i,1] := ClientDataSet_ ClientesID. AsString; vetor_string_ dinamico[ i,2] := ClientDataSet_ ClientesNome. AsString; inc(i); ClientDataSet_ Clientes. next; end; end; Os dados serão alocados a partir da posição '0' (Zero) do array. 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.maisbuscados.yahoo.com > > [As partes desta mensagem que não continham texto foram removidas] > > > > ------------------------------------ > >
