Você está aqui: Delphi ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como passar uma matriz de Integer para uma procedure ou functionQuantidade de visualizações: 12244 vezes |
Em algumas situações precisamos passar uma matriz para uma procedure ou function (função). Nesta dica eu mostro como isso pode ser feito. Veja que a procedure exibirMatriz(matriz: array of Integer) possui uma matriz aberta (open array) como parâmetro. Esta é a forma correta de declarar matrizes em parâmetros de métodos, pois permite que passemos matrizes de tamanhos arbitrários. Veja o código:----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
procedure TForm3.exibirMatriz(matriz: array of Integer);
var
i: Integer;
begin
for i := Low(matriz) to High(matriz) do
begin
Memo1.Lines.Add(IntToStr(matriz[i]));
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
// vamos declarar uma matriz de 10 inteiros
valores: array[1..10] of Integer;
i: Integer;
begin
// vamos inicializar a matriz com os números pares de 2 até 20
for i := Low(valores) to High(valores) do
begin
valores[i] := i * 2;
end;
// vamos fornecer a matriz para uma procedure que exibirá seus valores
exibirMatriz(valores);
end;
No evento Click do botão nós criamos uma matriz de 10 inteiros, inicializamos os valores dos elementos e a fornecemos à procedure exibirMatriz() para que esta exiba os valores em um TMemo. Importante: Quando passamos uma matriz para uma função ou procedure, alterações nos valores dos elementos da matriz por parte da procedure ou função que a recebe não afetam a matriz original. Para que isso aconteça devemos usar a palavra-chave Var antes do parâmetro para indicar que estamos passando a matriz por referência. Veja: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- procedure TForm3.exibirMatriz(var matriz: array of Integer); |
|
|
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
|
Java - Exercício Resolvido de Java - Usando um laço for para contar de 0 até 10 e somar todos os valores C - Como inverter (reverter) o conteúdo de uma string em C usando uma função str_reverse() personalizada MySQL - Como usar joins no MySQL |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |







