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

Better handling of currency property comparison in "Equal".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6675 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2018-10-06 12:14:24 +00:00
parent eba44b8b45
commit a3bcfc191f
1 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
wst/trunk/base_service_intf.pas
View File

@ -5276,6 +5276,11 @@ var
selfTypeInfo : PTypeInfo;
srcObj, dstObj : TObject;
ok : Boolean;
currencyA, currencyB : record
case Integer of
0 : (CurrencyValue : Currency;);
1 : (Int64Value : Int64;);
end;
begin
Result := False;
if not Assigned(ACompareTo) then
@ -5316,7 +5321,20 @@ begin
end;
end;
tkFloat :
ok := ( GetFloatProp(Self,p^.Name) = GetFloatProp(ACompareTo,p^.Name) );
begin
case GetTypeData(p^.PropType{$IFDEF WST_DELPHI}^{$ENDIF})^.FloatType of
ftSingle, ftDouble, ftExtended :
ok := (GetFloatProp(Self,p^.Name) = GetFloatProp(ACompareTo,p^.Name));
ftCurr :
begin
currencyA.CurrencyValue := GetFloatProp(Self,p^.Name);
currencyB.CurrencyValue := GetFloatProp(ACompareTo,p^.Name);
ok := (currencyA.Int64Value = currencyB.Int64Value);
end;
else
ok := (GetFloatProp(Self,p^.Name) = GetFloatProp(ACompareTo,p^.Name));
end;
end;
end;
if not ok then
Break;