New visualizer

2025-10-29 23:07:49 +01:00
parent a47cd3f1f4
commit f1735e2678
9 changed files with 1932 additions and 167 deletions
@@ -143,7 +143,8 @@ begin
    if FKind <> vkGeneric then
        raise EInvalidCast.Create('Cannot read value as generic of ' + String(PTypeInfo(TypeInfo(T)).Name) + '.');
 {$ifdef DEBUG}
-    if TVal<T>(FInterface).TypeHandle <> TypeInfo(T) then
+    var val := TVal<T>(FInterface);
+    if val.TypeHandle <> TypeInfo(T) then
        raise EInvalidCast.Create('Generic type is not a ' + String(PTypeInfo(TypeInfo(T)).Name) + '.');
 {$endif}
    Result := TVal<T>(FInterface).Value;