pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

iphonelazext: update the way of parsing plistadded an ability to convert to XML, if non xml plist foundadded exception catch during reading of system configuration

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4037 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-16 03:55:19 +00:00
parent 95edadbd29
commit 186029ef86
5 changed files with 241 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/iphonelazext/xcodeutils.pas
View File

@ -47,13 +47,16 @@ var
plist : TPListFile;
begin
Result:=False;
plist:=TPListFile.Create(FileName);
plist:=TPListFile.Create;
try
plistfile.LoadFromFile(FileName, plist);
Descr.Name:=plist.GetStrValue('CanonicalName');
Descr.Alternate:=plist.GetStrValue('AlternateSDK');
Descr.Version:=plist.GetStrValue('Version');
plist.Free;
Descr.Name:=plist.GetStrValue('CanonicalName');
Descr.Alternate:=plist.GetStrValue('AlternateSDK');
Descr.Version:=plist.GetStrValue('Version');
finally
plist.Free;
end;
end;
function isSDKDir(const SDKDir: String; var d: TSDKDescription): Boolean;
@ -163,7 +166,8 @@ begin
xib:='';
for j:=0 to files.Count-1 do
if AnsiLowerCase(ExtractFileExt(files[j]))='.plist' then begin
plist:=TPListFile.Create(files[j]);
plist:=TPListFile.Create;
plistfile.LoadFromFile(files[j],plist);
xib:=plist.GetStrValue('MainTemplateFile');
descr:=plist.GetStrValue('Description');
name:=ChangeFileExt(xib, '');