From 5e8fb9d46e6f19f4824b442d0db2d68fab620a00 Mon Sep 17 00:00:00 2001 From: juha Date: Mon, 2 Jan 2017 22:02:35 +0000 Subject: [PATCH] Converter: A minor optimization. git-svn-id: trunk@53840 - --- converter/convertdelphi.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas index fdc2b0b536..d73510bb87 100644 --- a/converter/convertdelphi.pas +++ b/converter/convertdelphi.pas @@ -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]),