Funcion que devuelva mas de un valor

[ckaki]

Hola a todos. Generalmente he trabajdo con funciones que devuelven un solo valor. podría alguien indicarme como puedo hacer de la forma mas sencilla para que una funcion me devuelva 4 valores reales. desde ya mil gracias

[delphi.com.ar]

Existen varias formas de hacer cosas similares, queda en uno elegir la mas apropiada para la ocasión: Por ejemplo puedes hacerlo con un procedure que tenga cuatro parámetros var, o puedes hacerlo con una función que devuelva un record o un array.

Un Procedure:

procedure TraerValores(var AVar1, AVar2, AVar3, AVar4: Integer);
begin
  ...
end;

Con un Record:

type
  TValores = record
    Valor1,
    Valor2,
    Valor3,
    Valor4 : Integer;
  end;

...

function TraerValores: TValores;
begin
  ...
end;

Con un Array:

type
  TValores = array of Integer;

...

function TraerValores: TValores;
begin
  ...
end;

Saludos!