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