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

iphonelazext: plistfile test project - plistread. Added an ability to add more string values to plist file

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4415 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-01-06 14:21:36 +00:00
parent f3a55dedd4
commit d6a99df706
4 changed files with 216 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/iphonelazext/tests/plist/plist.xml Normal file
View File

@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>CFBundleDevelopmentRegion</key><string>English</string>
<key>CFBundleDisplayName</key><string>%s</string>
<key>CFBundleExecutable</key><string>%s</string>
<key>CFBundleIdentifier</key><string>%s</string>
<key>CFBundleInfoDictionaryVersion</key><string>6.0</string>
<key>CFBundleName</key><string>%s</string>
<key>CFBundlePackageType</key><string>APPL</string>
<key>CFBundleSignature</key><string>????</string>
<key>CFBundleSupportedPlatforms</key>
<array><string>%s</string></array>
<key>CFBundleVersion</key><string>1.0</string>
<key>DTPlatformName</key><string>%s</string>
<key>DTSDKName</key><string>%s</string>
<key>LSRequiresIPhoneOS</key><true/>
</dict>
</plist>

77
components/iphonelazext/tests/plist/plistread.lpi Normal file
View File

@ -0,0 +1,77 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="plistread"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="nogui"/>
</MacroValues>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
<SharedMatrixOptions Count="1">
<Item1 ID="322992283170" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="nogui"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<Units Count="1">
<Unit0>
<Filename Value="plistread.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="plistread"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\.."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

37
components/iphonelazext/tests/plist/plistread.lpr Normal file
View File

@ -0,0 +1,37 @@
program plistread;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, plistfile
{ you can add units after this };
procedure TestRead(const fn: string);
var
pl : TPListFile;
begin
pl:=TPlistFile.Create;
try
LoadFromXML(fn, pl);
writeln(pl.GetStrValue('CFBundleDevelopmentRegion'));
pl.SetStrValue('DTPlatformName','TESTPLATFORMNAME');
SaveToXMLFile(pl, ChangeFileExt(fn, '.xml.out'));
finally
pl.Free;
end;
end;
var
fn : string;
begin
if ParamCount=0 then begin
writeln('please specify the .info file');
Exit;
end;
fn := ParamStr(1);
TestRead(fn);
end.