paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: DebugLn in TProject.UnitWithComponentClassName. For debugging issue #39488.

Browse Source
This commit is contained in:
Juha 2021-11-27 23:41:50 +02:00
parent 05382f4ddf
commit 889f82bb4d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/project.pp
View File

@ -5551,9 +5551,11 @@ end;
function TProject.UnitWithComponentClassName(const AClassName: string): TUnitInfo;
begin
Result := fFirst[uilWithComponent];
while (Result<>nil)
and (SysUtils.CompareText(Result.Component.ClassName, AClassName) <> 0) do
while (Result<>nil) and (CompareText(Result.Component.ClassName, AClassName)<>0) do
begin
DebugLn('TProject.UnitWithComponentClassName: ', Result.Component.ClassName);
Result := Result.fNext[uilWithComponent];
end;
end;
function TProject.UnitWithComponentName(AComponentName: String;