paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:57:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codebrowser: fixed find filename

Browse Source 
git-svn-id: trunk@34239 -
This commit is contained in:
mattias 2011-12-17 11:04:17 +00:00
parent ae753f4f56
commit 6a5d2af643
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codebrowser.pas
View File

@ -1211,7 +1211,7 @@ procedure TCodeBrowserView.WorkFreeUnusedPackages;
PackageName:=UnusedPackage.Owner;
if (FWorkingParserRoot=nil)
or (FWorkingParserRoot.UnitLists=nil)
or (FWorkingParserRoot.UnitLists.FindKey(@PackageName,
or (FWorkingParserRoot.UnitLists.FindKey(Pointer(PackageName),
@CompareAnsiStringWithUnitListOwner)=nil)
then begin
Result:=UnusedPackage;
@ -1321,7 +1321,7 @@ var
DebugLn(['WARNING: TCodeBrowserView.WorkUpdateFiles Macros in filename ',Filename]);
exit;
end;
if NewFileList.FindKey(@Filename,@CompareAnsiStringWithUnitFilename)<>nil
if NewFileList.FindKey(Pointer(Filename),@CompareAnsiStringWithUnitFilename)<>nil
then exit;
//DebugLn(['TCodeBrowserView.WorkUpdateFiles AddFile ',Filename]);
NewFileList.Add(TCodeBrowserUnit.Create(Filename));
@ -1494,7 +1494,7 @@ var
while Node<>nil do begin
NextNode:=List.Units.FindSuccessor(Node);
CurUnit:=TCodeBrowserUnit(Node.Data);
if NewFileList.FindKey(@CurUnit.Filename,
if NewFileList.FindKey(Pointer(CurUnit.Filename),
@CompareAnsiStringWithUnitFilename)=nil
then begin
// this unit is not part of List anymore -> delete