* correctly compare tkFloat values

git-svn-id: trunk@40661 -
2025-04-24 09:39:11 +02:00 · 2018-12-26 22:59:21 +00:00 · 2018-12-26 22:59:21 +00:00 · bd328025fd
commit bd328025fd
parent 8d235b5f26
1 changed files with 15 additions and 0 deletions
--- a/packages/rtl-objpas/tests/tests.rtti.invoke.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.invoke.pas
@ -138,6 +138,21 @@ begin
        Result := aValue1.AsOrdinal = aValue2.AsOrdinal;
      tkQWord:
        Result := aValue1.AsUInt64 = aValue2.AsUInt64;
+      tkFloat:
+        if td1^.FloatType <> td2^.FloatType then
+          Result := False
+        else begin
+          case td1^.FloatType of
+            ftSingle,
+            ftDouble,
+            ftExtended:
+              Result := aValue1.AsExtended = aValue2.AsExtended;
+            ftComp:
+              Result := aValue1.AsInt64 = aValue2.AsInt64;
+            ftCurr:
+              Result := aValue1.AsCurrency = aValue2.AsCurrency;
+          end;
+        end;
      tkSString,
      tkUString,
      tkAString,