É muito simples utilizar um array dinâmico
Obs.: Um array dinâmico de tamanho 0 possui como valor NIL e não se
deve passar um array deste tipo para uma função do tipo New ou Dispose.
Exemplo de uso
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | procedure TForm1.Button1Click(Sender: TObject); // Declarando o array var Vetor : Array of Integer; begin // Utilizando o array // Determinando o tamanho do array. SetLength(Vetor, 5); // Preenchendo o array for I := 0 to High(Vetor) do vetor[I] := I *2 // Modificando o tamanho SetLength(Vetor,10) // Preenchendo o array novamente for I := 0 to High(Vetor) do vetor[I] := I *2 end; |
Outras funções importantes vinculadas ao array dinâmico
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | { determina o número de elementos do array. Tendo em vista que o valor default para o primeiro elemento é 0 (zero). } SetLength(Array,Tamanho); { Retorna a posição do último índice do array. Exemplo: se o array tem tamanho 10 e começa em 0 o resultado seria 9. } High(Vetor);// : Integer { Retorna a posição do primeiro índice do array. No caso, sempre zero. } Low(Vetor);// : Integer { Retorna o tamanho exato do array ou seja, o valor que foi definido na função SetLength. } Length(Vetor); |
Fonte base: http://www.planetadelphi.com.br/dica/5086/arrays-din%C3%A2micos
Dúvidas ou sugestões, deixe nos comentários do post.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
