retorno de função

[guilhermerayol]

E ai da pra falar como faço pra retornar um vetor como resultado de uma função , depois como fazer para pegar os valores do vetor. falllou obrigado pela atenção.:D

[Simon Viegas]

E ai da pra falar como faço pra retornar um vetor como resultado de uma função , depois como fazer para pegar os valores do vetor. falllou obrigado pela atenção.:D

Aqui um código demonstrando... não faz nada, é só para demonstrar como pode passar os valores.

Comentários no próprio código...

program retorno_de_vetor;
const
  max = 10;

type
  t_Pessoa    = record
                  nome    :string;
                  celuar  :string;
                  telefone:string;
                end;

  t_VetPessoas = array [1..MAX] of t_Pessoa; 
  {obs: é necessário criar um "tipo" para array, já que não dá para declar di-
  retamente no procedimento, ou seja, não funciona colocar por exemplo

       function usandoRetorno(pessoa:array [1..MAX] of t_Pessoa);
  }


{aqui demonstrando que pode ser via "retorno da funciton"}
function usandoRetorno(pessoa:t_Pessoa):t_VetPessoas;
  var
    outrasPessoas:t_VetPessoas;
  begin
  {bla bla bla bla}
  outrasPessoas[1]:=pessoa; {insere a pessoa na primeira posição}
  usandoRetorno:=outrasPessoas; {rentona as pessoas}

  {aqui o valor está sendo retornado pela function}
  end;

{aqui retorno nado o valor através de um dos parámetro (usando var para permitir gravar)}
procedure usandoParametros(var pessoas:t_VetPessoas);
  var
    outrasPessoas:t_VetPessoas;
  begin
  {bla bla bla bla}
  pessoas:=outrasPessoas; {rentona as pessoas}

  {ai no caso, a variável que foi jogada no parêmetro pessoas que vai receber}
  end;


var 
  pessoas :t_VetPessoas;
  pessoa  :t_Pessoa;
BEGIN
  pessoas:=usandoRetorno(pessoa);
  usandoParametros(pessoas);

  {obs.: eu coloco as variáveis globais embaixo de logo (logo acima do BEGIN
   principal) para evitar que usemos acidentalmente alguma.
   Outra coisa, coloquei as pessoa com o mesmo nome de propósito, só para 
   demonstrar que é possível usar. (são duas variáveis diferentes, uma global
   e outra local - a vantagem de usar local é que você não precisa se preocupar
   com as variáveis externas)}
END.

Qualquer coisa é só perguntar

Abraços