2 Resultados na fun��o

Question

QUERO CRIAR UMA FUNCAO QUE ME RETORNE 2 RESULTADOS OU SEJA 2 RESULT
COMO � POSSIVEL?

[b:29113e08ab][color=green:29113e08ab]T�tulo Ediutado(Saviski) [/color:29113e08ab]- mai�sculas - leia as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]regras de conduta do f�rum[/url][/b:29113e08ab]

Bruno Belchior · Answer

Isso n�o � poss�vel, o que voc� pode fazer � passar uma vari�vel por refer�ncia... ex.:

function SomaEMultiplica(var Parcela1: Integer; Parcela2: Integer): Integer;
begin
  Result := Parcela1 + Parcela2;
  Parcela1 := Parcela1 * Parcela2;
end;

procedure Chamadora;
var
  Par1, Par2, Resultado: Integer; 
begin
  Par1 := 2;
  Par2 := 3;
  Resultado := SomaEMultiplica(Par1, Par2);
end;

Observe que na fun��o no primeiro par�mtro foi antecedido com a palavra [b:8c0bac4aae]var[/b:8c0bac4aae] isso quer dizer que tudo que acontecer �dentro� da fun��o com essa vari�vel vai refletir na vari�vel que foi passada nele no m�todo que a chamou, no exemplo a vari�vel [b:8c0bac4aae]Resultado[/b:8c0bac4aae] vai receber 5 (a soma de Par1 e Par2) e a vari�vel [b:8c0bac4aae]Par1[/b:8c0bac4aae] vai ter valor igual a 6 (resultado da multiplica��o de Par1 e Par2)...

Kotho · Answer

Voc� pode definir o tipo de retorno da sua fun��o como Variant...

depois utilize a fun��o VarArrayOf para atribuir valor para o Result:

result := VarArrayOf([�string�, �string�]);

isso far� que o retorno da sua fun��o seja um array:

var
arr: array of string;
...
arr := funcao(parametros);

showmessage(arr[0]);
showmessage(arr[1]);

F�rum 2 Resultados na fun��o #280670