For what it's worth, I downloaded it, changed the code to accept dates
up to 2050, and compiled it in Lazarus successfully under Windows 10.
But it didn't run -- runtime exception. I'll have to look into it further.
Incidentally, the date validation function is in utils.pas, not main.pas.
73,
>function ValidDate(d: string): boolean;
>begin
> Result := (Length(d) = 10)
> and (d[5] = DateSeparator)
> and (d[8] = DateSeparator)
> and Between(StrToIntDef(Copy(d,1,4),-1),1950,2020)
> and Between(StrToIntDef(Copy(d,6,2),-1),1,12)
> and
__
Elecraft mailing list
Home: http://mailman.qth.net/mailman/listinfo/elecraft
Help: http://mailman.qth.net/mmfaq.htm
Post: mailto:Elecraft@mailman.qth.net
This list hosted by: http://www.qsl.net
Please help support this email list:
I downloaded the source code (still available on g4ilo.com). I don't
have any Elecraft gear, but you might want to try recompiling after
changing this section in the main .pas file (environment is Lazarus/Pascal):
function ValidDate(d: string): boolean;
begin
Result := (Length(d) = 10)
Has anyone did a fix for 2121 date. It says that it is invadid
Bruce Wade
__
Elecraft mailing list
Home: http://mailman.qth.net/mailman/listinfo/elecraft
Help: http://mailman.qth.net/mmfaq.htm
Post: mailto:Elecraft@mailman.qth.net
This
5 matches
Mail list logo