Retorno de Função
Boa noite a todos ...
Hoje tive uma curiosidade, e como sei q tudo na informatica tem uma forma de resolver, acredito q a minha duvida tambem terá.
seguinte... em uma funcão normal, é retornado um valor atraves do result da função... até ai tudo bem, a duvida é como fazer para q uma função me retorne mais de um valor.
Obrigado pela sua atenção.
Wiltefran Silva - Analista de Sistemas Sta. Cruz Tecnologia
Hoje tive uma curiosidade, e como sei q tudo na informatica tem uma forma de resolver, acredito q a minha duvida tambem terá.
seguinte... em uma funcão normal, é retornado um valor atraves do result da função... até ai tudo bem, a duvida é como fazer para q uma função me retorne mais de um valor.
Obrigado pela sua atenção.
Wiltefran Silva - Analista de Sistemas Sta. Cruz Tecnologia
Wiltefran
Curtidas 0
Respostas
Cac2000
16/05/2006
Voce pode simplesmente criar uma procedure que tem parâmetros com passagem por referencia:
procedure Teste(var Par1:integer; var Par2: string);
begin
Par1 := 0;
Par2 := ´teste´;
end;
A chamada é simples:
var Parametro1: integer; Parametro2: string; //
begin
Teste(Parametro1, Parametro2);
// neste ponto, estas variaves terao o ´Zero´ e o ´teste´
end;
procedure Teste(var Par1:integer; var Par2: string);
begin
Par1 := 0;
Par2 := ´teste´;
end;
A chamada é simples:
var Parametro1: integer; Parametro2: string; //
begin
Teste(Parametro1, Parametro2);
// neste ponto, estas variaves terao o ´Zero´ e o ´teste´
end;
GOSTEI 0