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

Converter: A minor optimization.

Browse Source 
git-svn-id: trunk@53840 -
This commit is contained in:
juha 2017-01-02 22:02:35 +00:00
parent 98866fb02d
commit 5e8fb9d46e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convertdelphi.pas
View File

@ -1156,11 +1156,11 @@ var
Result:=ExpandDelphiSearchPath(SearchPath, Self);
end;
procedure AddPackDep(const DelphiPkgName, DelphiPkgNames, LazarusPkgName: string);
procedure AddPackDep(const DelphiPkgName, LowerDelphiPkgNames, LazarusPkgName: string);
begin
if DelphiPkgName='' then exit;
if System.Pos(';'+lowercase(DelphiPkgName)+';',
';'+lowercase(DelphiPkgNames)+';')>0 then begin
if Pos(';'+lowercase(DelphiPkgName)+';', ';'+LowerDelphiPkgNames+';')>0 then
begin
fProjPack.AddPackageDependency(LazarusPkgName);
fSettings.AddLogLine(mluNote,
Format(lisConvDelphiAddedPackageDependency,[LazarusPkgName]),