Código
Exemplo
// Declarando o array
Var
Vetor : Array of Integer;
.
.
.
// Utilizando o array
SetLength(Vetor,5); // Determinando o tamanho do array.
// Preenchendo o array
for I := 0 to High(Vetor) do
vetor[I] := I *2
//Modificando o tamanho
SetLength(Vetor,10)
//Preenchendo o array novamente
// Preenchendo o array
for I := 0 to High(Vetor) do
vetor[I] := I *2
{É muito simples utilizar um array dinâmico e com ele conseguimos implementar as mesmas facilidades que tinhamos no Clipper.
Algumas funções que podem ser utilizadas com o array dinâmico:
}
SetLength(Array,Tamanho)// - determina o número de elementos do array. Tendo em vista que o valor default para o primeiro elemento é 0 (zero).
High(Vetor) : Integer// - retorna o maior indice do array. Ex.: se o array tem tamanho 10 e começa em 0 o resultado seria 9.
Low(Vetor) : Integer //- Retorna 0 ou seja o menor elemento do array.
Length(Vetor)// - retorna o tamanho exato do array ou seja o valor que foi definido na função SetLength.
{ 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}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009