paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:09:22 +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; function TProject.UnitWithComponentClassName(const AClassName: string): TUnitInfo;
begin begin
Result := fFirst[uilWithComponent]; Result := fFirst[uilWithComponent];
while (Result<>nil) while (Result<>nil) and (CompareText(Result.Component.ClassName, AClassName)<>0) do
and (SysUtils.CompareText(Result.Component.ClassName, AClassName) <> 0) do begin
DebugLn('TProject.UnitWithComponentClassName: ', Result.Component.ClassName);
Result := Result.fNext[uilWithComponent]; Result := Result.fNext[uilWithComponent];
end;
end; end;
function TProject.UnitWithComponentName(AComponentName: String; function TProject.UnitWithComponentName(AComponentName: String;