Es posiblefuncion con varios Result

[[José Luis Garcí]]

Gracias Cloayza, tendré que estudiarlo, en cuanto pueda

[[Al González]]

Además de los parámetros por variable o por referencia, también puedes hacer que el resultado de la función sea de tipo registro:

Código Delphi [-]
Type
  TResultado = Record
    Cadena :String;
    Entero :Integer;
  End;

Function Func1 (Const Fecha :TDateTime) :TResultado;
Begin
  Result.Cadena := DateToStr (Fecha);
  Result.Entero := Trunc (Fecha);
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  R :TResultado;
begin
  R := Func1 (Now);
  ShowMessage (R.Cadena);

  If Func1 (Now).Entero = Date Then
    ShowMessage ('Saludos');
end;

Un saludo.

Al González.

[olbeup]

Mira la función FormatDateTime, quizas lo tengas más claro referente a lo que quieres que te devuelva.

Un saludo.

[[José Luis Garcí]]

Ai creo que tu respuesta es perfecta, pronto lo comprobare, muchas gracias,.
Olbeup, gracias, pero no es sólo con la idea de usarlo en las funciones que te dije, es para ampliar el uso a otras

[[José Luis Garcí]]

Ai, puedo crear el registro en el mismo archivo pas que tengo mis funciones y luego utilizarlo en los otros archivos pas solo añadiendo el archivo al uses, como hago ahora?.

[[Al González]]

Empezado por José Luis Garcí

Ai, puedo crear el registro en el mismo archivo pas que tengo mis funciones y luego utilizarlo en los otros archivos pas solo añadiendo el archivo al uses, como hago ahora?.

¡Ay, algo me va a dar!

Sí José Luis, puedes usar tu nueva función sin problemas, como lo harías con cualquier otra, desde otra unidad .pas añadiendo en el Uses el nombre de la unidad que la contiene.

Saludos al estilo de Al Gore y de Al Capone.

[[José Luis Garcí]]

Muchas Gracias Ai (González) perdon por haberte abrebiado el nick