Hello All!

I think I found a bug in VP10b003 (without all the patches)

this code returns an error: Type mismatch

procedure HCGetDate(var Year, Month, Day, WeekDay : word);
begin
   GetDate(Year, Month, Day, WeekDay);
               ^  Type Mismatch
end;

The unit uses either DOS or WINDOS.

Code to get around this problem is the following (much slower) code;

procedure HCGetDate(var Year,Month, Day, WeekDay: word);
var Y,M,D,W: Longint;
begin
 GetDate(Y,M,D,W);
 Year := Y;
 Month := M;
 Day := D;
 WeekDay := W;
end;

The types Y,M,D,W may not be words, that results in a type mismatch too.

Hope you know a solution to this.

Bye, Erik!

(e-mail: ErikH{at}hcc-gron.idn.nl)

--- FleetStreet 1.12 NR