Re: [delphi-br] Dados da tabela p ara array dinâmico

Sat, 03 Oct 2009 07:18:15 -0700 

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.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
>

Responder a