[delphi-br] Dados para Array

Sat, 03 Oct 2009 06:22:03 -0700 

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]

Responder a