paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 05:00:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: new form: fixed endless loop

Browse Source 
git-svn-id: trunk@35024 -
This commit is contained in:
mattias 2012-01-29 18:39:36 +00:00
parent 3543c6f1d0
commit cf7d30b101
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -5289,7 +5289,7 @@ function TMainIDE.NewUniqueComponentName(Prefix: string): string;
if SysUtils.CompareText(AnUnitInfo.ComponentName,Identifier)=0 then exit;
end;
end;
Result:=true;
Result:=false;
end;
function SearchPackage(APackage: TLazPackage; const Identifier: string): boolean;