Como criar e usar arrays dinâmicos? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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;

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.

Facebook Comments

Posts Relacionados

  • Administrador
  • 118 views
  • 0 comentários
  • 20 de novembro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados