Se você está usando arrays de variants, prefira o uso da função
VarArrayCreate(). Caso contrário, se você está trabalhando com arrays de
tipos de dados primitivos, sugiro que você crie funções especializadas para
cada tipo de array que você irá trabalhar. O exemplo abaixo trabalha com
vetores e matriz de valores numéricos inteiros.
program DynArraySample;
{$APPTYPE CONSOLE}
uses
SysUtils{$IF CompilerVersion >= 14.0}, Types{$IFEND};
type
{$IF CompilerVersion < 14.0}
TIntegerDynArray = array of Integer;
{$IFEND}
TIntegerMultiDynArray = array of TIntegerDynArray;
function CreateIntegerArray(const Columns: integer): TIntegerDynArray;
overload;
begin
SetLength(Result, Columns);
end;
function CreateIntegerArray(const Rows, Columns: integer):
TIntegerMultiDynArray; overload;
var
i: integer;
begin
SetLength(Result, Rows);
for i := Low(Result) to High(Result) do
Result[i] := CreateIntegerArray(Columns);
end;
var
i, j: Integer;
Vetor: TIntegerDynArray;
Matriz: TIntegerMultiDynArray;
begin
Randomize;
Vetor := CreateIntegerArray(3);
for i := Low(Vetor) to High(Vetor) do
Vetor[i] := Random(100);
WriteLn('Mostrando vetor criado ...');
for i := Low(Vetor) to High(Vetor) do
WriteLn(Vetor[i]);
WriteLn; WriteLn;
SetLength(Vetor, 0);
Matriz := CreateIntegerArray(3, 4);
for i := Low(Matriz) to High(Matriz) do
for j := Low(Matriz[i]) to High(Matriz[i]) do
Matriz[i, j] := Random(100);
WriteLn('Mostrando matriz criada ...');
for i := Low(Matriz) to High(Matriz) do
begin
for j := Low(Matriz[i]) to High(Matriz[i]) do
Write(Matriz[i, j], ' ');
WriteLn;
end;
SetLength(Matriz, 0);
WriteLn(Eoln);
end.
Boa sorte.
Sds.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: segunda-feira, 31 de maio de 2010 14:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criando Matriz
algo do tipo eu insero em dois edits o numero de colunas e linhas e quando
eu clico em um bitbtn eu crio uma matriz em tempo de execução com o numero
de linhas e colunas que eu indiquei
Em 31 de maio de 2010 15:11, Rubem Rocha
<rubem.ro...@dtmanaus.com.br>escreveu:
>
>
> Esboce mais ou menos o q você quer fazer. Pode ser um pedaço de código
> hipotético que ilustre bem sua idéia.
>
> Sds.
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Leonardo Baldino
> Enviada em: segunda-feira, 31 de maio de 2010 14:10
> Para: Grupo_Delphi
> Assunto: [delphi-br] Criando Matriz
>
>
> alguel sabe como eu posso fazer para criar uma matriz em tempo de execução
> usando valores de duas variaveis integer para linha e coluna.
>
> --
> Leonardo Carlos Baldino - The Highlander
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
