Como criar e usar arrays dinâmicos?
É 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; |
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); |
{ 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.
-
InfusTec
-
16.233 views
- 0 comentários
- 20 de novembro de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo