Paso de parametros

[[maeyanes]]

Tienes varias posibilidades, la más rápida:

Usar un procedimiento de esta forma:

Código Delphi [-]
Procedure HorasMinutosEnTurno(HoraInicio, MinutosInicio,
  HoraFinal, MinutosFinal:Integer;
  var TotalHoras, TotalMinutos: String);

Así devuelves en TotalHoras y TotalMinutos los valores que necesitas..

Claro, que si necesitas usar el valor de la función original solo para mostrarla, podrías componer la cadena a devolver:

Código Delphi [-]
var
  TotalHoras: Integer;
  TotalMinutos: Integer;

begin
  // Cálculos...
  Result := Format(%d horas %d minutos', [TotalHoras, TotalMinutos])
end;

Otra opción sería crear un tipo registro que tenga los 2 valores y devolver en la función un registro de ese tipo...


Saludos...