Fórum Passando NULL para um campo DateTime #199256

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure verificarParametros(Nome: String; Data: TDateTime = 0 );
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TDateTime;
begin
  data := 0;

  //passar nome + Data
  verificarParametros('Wesley', Now);

  //passar apenas nome
  verificarParametros('Wesley');
end;

procedure TForm1.verificarParametros(Nome: String; Data: TDateTime = 0);
begin
  if Data <> 0 then
  begin
    ShowMessage('Seu nome: ' + Nome  + ' | Data: ' +FormatDateTime('dd/mm/yyyy', Data));
  end
  else
    begin
      ShowMessage('Seu nome' + Nome);
    end;

end;