Foros Club Delphi - Parámetro por defecto en función

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Parámetro por defecto en función (https://www.clubdelphi.com/foros/showthread.php?t=83530)

Parámetro por defecto en función

Quería saber como se puede hacer para poner en un parámetro la fecha del día como valor por defecto si no cargan nada en el mismo. Lo que estoy haciendo es lo siguiente:

Código Delphi [-]function GetDateTimeValue(aName: String; aDefault: TDateTime = Now): TDateTime;

El problema es que no se pueden poner cosas como *NOW* en el valor por defecto ya que no admite constantes (ese es el error que da al compilar). Entonces ¿como se puede hacer lo que comento?

Saludos,
El Rayo

Cita:

Empezado por elrayo76 (Mensaje 462873)

Quería saber como se puede hacer para poner en un parámetro la fecha del día como valor por defecto si no cargan nada en el mismo. Lo que estoy haciendo es lo siguiente:

function GetDateTimeValue(aName: String; aDefault: TDateTime = Now): TDateTime;

El problema es que no se pueden poner cosas como *NOW* en el valor por defecto ya que no admite constantes (ese es el error que da al compilar). Entonces ¿como se puede hacer lo que comento?

Saludos,
El Rayo

Hola

Una idea, aunque debe haber algo mejor, seguramente los masters de por aquí pueden darte otras alternativas mejores.

Código Delphi [-]
     function GetDateTimeValue(aName: String; aDefault: TDateTime = 0): TDateTime;


procedure TForm1.Button1Click(Sender: TObject);
begin
  showMessage(datetostr(GetDateTimeValue('Hola')));
  showMessage(datetostr(GetDateTimeValue('Hola', strtoDateTime('09/02/2006'))));
end;

function TForm1.GetDateTimeValue(aName: String; aDefault: TDateTime): TDateTime;
begin
  if aDefault = 0 then aDefault := Now;
  result := ADefault;
end;

Saludos