Function retornando mais de um Result

Question

Existe alguma forma de fazer uma Function retornar mais que um valor?Algu�m sabe como faz�-lo?...

Beppe · Answer

Pode fazer a fun��o retornar um record contendo os campos q precisar, ou fazer via par�metros out ou var....

Motta · Answer

defina um tipotype Tmeutipo = record   numero integer;   letra     string;end;a funtion retorn este tipofunction minhafunction : Tmeutipo;function .....minhafunction : Tmeutipo;begin   Result.numero := 1;   Result.letra := �a�;end;...

Tinorj · Answer

:idea: :D :) :( :o :? 8) :lol: :P :roll: :wink: :idea:
:!:

function TForm1.RetornaArray: Variant;
var
  VarLocal: Array of Variant;
  Tam: Integer;
begin
  Tam := Length(VarLocal);
  SetLength(VarLocal, Tam + 1);
  VarLocal[Tam] := 1;

  Tam := Length(VarLocal);
  SetLength(VarLocal, Tam + 1);
  VarLocal[Tam] := �Nome�;

  Tam := Length(VarLocal);
  SetLength(VarLocal, Tam + 1);
  VarLocal[Tam] := now;

  Result := VarLocal;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  teste: Array of Variant;
begin
  teste := RetornaArray;

  ShowMessage(IntToStr(teste[0]) + teste[1] + DateToStr(teste[3]));
end;

[]�s

F�rum Function retornando mais de um Result #229508