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]
