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

IDE: simplify code for getting package version in compiler options import/export.

Browse Source 
git-svn-id: trunk@45632 -
This commit is contained in:
juha 2014-06-23 18:50:18 +00:00
parent bbbdc686ac
commit e87969d7a6
1 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/imexportcompileropts.pas
View File

@ -112,21 +112,6 @@ begin
end;
end;
function ReadIntFromXMLConfig(const Filename, Path: string;
DefaultValue, ValueForReadError: integer): integer;
var
XMLConfig: TXMLConfig;
begin
Result:=ValueForReadError;
if FileExistsUTF8(Filename) then
try
XMLConfig:=TXMLConfig.Create(Filename);
Result:=XMLConfig.GetValue(Path,DefaultValue);
except
Result:=ValueForReadError;
end;
end;
function GetXMLPathForCompilerOptions(XMLConfig: TXMLConfig): string;
const
OptPathSuffix = 'SearchPaths/CompilerPath/Value';
@ -147,8 +132,13 @@ begin
else begin
// default: depending on file type
Result:=DefaultCompilerOptPath;
if CompareFileExt(XMLConfig.Filename,'.lpk',false)=0 then begin
FileVersion:=ReadIntFromXMLConfig(XMLConfig.Filename,PkgVersionPath,0,2);
if CompareFileExt(XMLConfig.Filename,'.lpk',false)=0 then
begin
try
FileVersion:=XMLConfig.GetValue(PkgVersionPath,0);
except
FileVersion:=2; // On error assume version 2.
end;
if FileVersion>=2 then
Result:=PkgCompilerOptPath; // current lpk file
end;
@ -186,7 +176,7 @@ var
begin
Result:=mrOk;
try
InvalidateFileStateCache;
InvalidateFileStateCache(Filename);
XMLConfig:=TXMLConfig.Create(Filename);
try
Path:=DefaultCompilerOptPath;