GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Delphi 2007 compatibility

Browse Source
This commit is contained in:
Mark van Renswoude 2016-04-18 11:46:27 +00:00
parent e9f864d150
commit 1af5bae544
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMLDataBindingUtils.pas
View File

@ -201,10 +201,10 @@ function InDSTSpan(ADate: TDateTime; ATimeZoneInfo: TTimeZoneInformation): boole
var var
lowerDayLight: TDateTime; lowerDayLight: TDateTime;
upperDayLight: TDateTime; upperDayLight: TDateTime;
day: TDate; day: TDateTime;
days: Integer; days: Integer;
function GetDay(AYear, AMonth, ADay, ADayOfWeek: Integer): TDate; function GetDay(AYear, AMonth, ADay, ADayOfWeek: Integer): TDateTime;
var var
I, Counter : Integer; I, Counter : Integer;
begin begin