pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warning

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@977 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-10-07 13:07:44 +00:00
parent d639b8d8d0
commit b94b6d8a61
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/date_utils.pas
View File

@ -213,8 +213,6 @@ function CompareValue(
const AA,AB : TDateTimeRec; const AA,AB : TDateTimeRec;
const ACompareKind : TValueCompareKind const ACompareKind : TValueCompareKind
) : Boolean; ) : Boolean;
var
locA, locB : TDateTime;
begin begin
case ACompareKind of case ACompareKind of
vckEqual : Result := ValueEquals(AA,AB); vckEqual : Result := ValueEquals(AA,AB);