¿funcion que devuelva mas de 1 valor?

[JXJ]

Empezado por Delphius

¿Y... a todo esto, como ha quedado? Parece que ha JXJ le cortaron las manos porque se lo ha visto por aquí y no ha comentado al respecto.

Saludos,

pues no entendi muy bien.. pero me gusta como se ve la funcion de

Ñuño Martínez
http://www.clubdelphi.com/foros/show...cion+resultado

Código Delphi [-]
FUNCTION Funcion (CONST Entrada: STRING; OUT Salida: STRING): BOOLEAN;
BEGIN  
  Salida := '';  
  RESULT := FALSE;  
  IF Entrada <> '' THEN Salida := 'Hay entrada';  
  RESULT := Length (Entrada) > 5;
END;

namas no entiendo como la llamo o como recibo el result mas el otro valor de
retorno.

procedure recibe2valores;

begin

if Funcion ('valor de entrada', ) = True
then
begin

end
else
begin

end
end