paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 14:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix issue #40180

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-13 17:19:36 +02:00
parent d5807e03b6
commit 08821f9422
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/classes/reader.inc
View File

@ -1555,11 +1555,12 @@ begin
ResultName := CompName;
Lock;
try
while Assigned(FindGlobalComponent(ResultName)) do
begin
Inc(i);
ResultName := CompName + '_' + IntToStr(i);
end;
if ResultName<>'' then
while Assigned(FindGlobalComponent(ResultName)) do
begin
Inc(i);
ResultName := CompName + '_' + IntToStr(i);
end;
Result.Name := ResultName;
finally
Unlock;