Ver Mensaje Individual
  #1  
Antiguo 17-01-2005
Delphos Delphos is offline
Miembro
 
Registrado: jun 2003
Ubicación: Valencia (España)
Posts: 45
Reputación: 0
Delphos Va por buen camino
Paso de parametros

Hola foro

Resulta que no se como devolver dos parametros de una funcion

Por ejemplo:
Código:
procedure TForm1.Button1Click(Sender: TObject);
  var: Hora1, Min1, Hora2, Min2 : Integer;
        TotHora,TotMin: String
begin
   Instrucciones
    .
    .
   // Se que una llamada normal seria asi
    HorasMinutosEnTurno( Hora1, Min1, Hora2, Min2);
   
  //Pero yo quiero que la funcion me devuelva dos valores
   ¿Como recogo aqui el valor de TotalHoras y el TotalMinutos de la funcion?
end;

Function HorasMinutosEnTurno(HoraInicio,MinutosInicio,HoraFinal,MinutosFinal:Integer):String;
var : TotalHoras, TotalMinutos : String
begin
   Instrucciones
    ...
    ...
   TotalHoras:= a lo que sea
   TotalMinutos := a lo que sea
end ;
Muchas gracias de antemano.

Salu2.
Responder Con Cita