* Fix issue #40180

2025-09-11 18:49:14 +02:00 · 2023-10-13 17:19:36 +02:00 · 2023-10-13 17:19:36 +02:00 · 08821f9422
commit 08821f9422
parent d5807e03b6
1 changed files with 6 additions and 5 deletions
--- a/rtl/objpas/classes/reader.inc
+++ b/rtl/objpas/classes/reader.inc
@ -1555,6 +1555,7 @@ begin
          ResultName := CompName;
          Lock;
          try
+            if ResultName<>'' then
              while Assigned(FindGlobalComponent(ResultName)) do
              begin
                Inc(i);