¿Una función en Delphi, puede devolver varios parámetros?

[dec]

Hola,

Otra opción puede user utilizar "records", de modo que podríamos declarar una como este:

Código Delphi [-]
type
  TOperationResult = record
    operationResult : integer;
    operationMessage : string;
  end;

Que podríamos emplear como tipo de resultado para la siguiente función:

Código Delphi [-]
function SumOperation(a, b: integer) : TOperationResult;
begin
  Result.operationResult := (a + b);
  Result.operationMessage := Format(
    'The sum of %d and %d is %d',
    [a, b, Result.operationResult]
  );
end;

Que a su vez podríamos utilizar de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(SumOperation(1, 2).operationMessage);
end;

Para obtener, en este caso, el mensaje "The sum of 1 and 2 is 3".

[*Caro*]

Hola, otra opción sería utilizar Out, que define un parametro de salida y supuestamente no necesita inicialización.

Código Delphi [-]
 function NombreFuncion(Out a , b : Integer) : Integer
 begin
   ....................
  a := valor;
  b ;= otrovalor;
 end;

Saluditos

[ContraVeneno]

Otra opción sería.... naaa, creo que ya con esas son suficientes