Fun��es que Retornam Dois Valores

Question

Alguem sabe como �receber� mais de um valor
de determinada fun��o:

Ex: Fun��o DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);

Esta fun��o retorna tanto o resultado da divis�o, quando o resto

Obrigado...

Aristodemo · Answer

Ol� pirasol,Veja um exemplo:--------------TValores = record  Valor1, Valor2: integer;end;....function Valores(Val1, Val2: integer): TValores;begin  result.Valor1 := Val1;  result.Valor2 := Val2;end;...vartemp:= TValores;...temp := Valores(1,2);--------------Espero ter ajudado.Abra�os......

Adilsond · Answer

Voce tamb�m pode utilizar uma procedure para isto:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Exemplo(var Vlr1, Vlr2: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Exemplo(var Vlr1, Vlr2: Integer);
begin
  Inc(Vlr1,10);
  Inc(Vlr2,20);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Val1,
  Val2: Integer;
begin
  Val1 := 10;
  Val2 := 10;
  Exemplo(Val1,Val2);
  ShowMessage(�Val1: � + IntToStr(Val1) + �  Val2: � + IntToStr(Val2));
end;

end.

Wbb · Answer

Pirasol, h� algum tempo eu postei o seguinte t�pico: [b:8852ebf921]Array de function. � poss�vel?[/b:8852ebf921]. O pessoal me deu uma tremenda ajuda neste assunto, em que foram apresentadas algumas maneiras de resolver seu problema f�cil e r�pidamente. Procure este t�pico e d� uma olhada.

At� mais.
wbb

F�rum Fun��es que Retornam Dois Valores #184677