Retorno de Fun��o

Question

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 ...

Cac2000 · Answer

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;

F�rum Retorno de Fun��o #321522