Newsgroups : Borland : borland.public.delphi.rtl.win32 : 2006 Jan : Passing default TDateTime params in a procedure

www.cryer.info
Managed Newsgroup Archive

Passing default TDateTime params in a procedure

Subject:Passing default TDateTime params in a procedure
Posted by:"Loren Szendre" (zorenlend..@yahoo.com)
Date:Mon, 16 Jan 2006 01:43:04

Does anyone know how to pass in a default value of type TDateTime in a
procedure?

I'm doing things like:

procedure SetFlag(const SomeId: Integer; const SomeInt: Integer = -1);

It works fine. I can send one or two params, and everyone is happy.

But now I need to do something like:

procedure SetFlag(const SomeId: Integer; const SomeDate: TDateTime =
StrToDate('7/4/1976'));

which of course does NOT work, because a constant expression is
expected. Is there any way to do this?

Loren Szendre

Replies:

www.cryer.info
Managed Newsgroup Archive