demo: fcldb: updated lpi

This commit is contained in:
mattias 2019-03-16 22:01:51 +00:00
parent 7c06836e11
commit 96e26566cd
5 changed files with 41 additions and 50 deletions

View File

@ -1,12 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions BuildModesCount="1">
<Version Value="11"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/> <MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -19,8 +20,8 @@
<Item1 Name="PasJSPort" Value="3039"/> <Item1 Name="PasJSPort" Value="3039"/>
<Item2 Name="PasJSWebBrowserProject" Value="1"/> <Item2 Name="PasJSWebBrowserProject" Value="1"/>
</CustomData> </CustomData>
<BuildModes Count="1"> <BuildModes>
<Item1 Name="Default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -31,18 +32,11 @@
<Mode0 Name="default"/> <Mode0 Name="default"/>
</Modes> </Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pas2js_fcldb"/>
</Item1>
<Item2>
<PackageName Value="pas2js_rtl"/>
</Item2>
</RequiredPackages>
<Units Count="1"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="demodb.lpr"/> <Filename Value="demodb.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="demoxhr"/>
</Unit0> </Unit0>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
@ -71,9 +65,7 @@
<CustomOptions Value="-Jminclude -Jc -Jirtl.js"/> <CustomOptions Value="-Jminclude -Jc -Jirtl.js"/>
<CompilerPath Value="$(pas2js)"/> <CompilerPath Value="$(pas2js)"/>
<ExecuteBefore> <ExecuteBefore>
<Command Value="$MakeExe(pas2js) -Tbrowser -Jirtl.js -Jc -O- $Name($(ProjFile))"/>
<ScanForFPCMsgs Value="True"/> <ScanForFPCMsgs Value="True"/>
<CompileReasons Compile="False" Build="False" Run="False"/>
</ExecuteBefore> </ExecuteBefore>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

View File

@ -1,12 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions BuildModesCount="1">
<Version Value="11"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/> <MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -14,8 +15,8 @@
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
</General> </General>
<BuildModes Count="1"> <BuildModes>
<Item1 Name="Default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -26,14 +27,6 @@
<Mode0 Name="default"/> <Mode0 Name="default"/>
</Modes> </Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pas2js_fcldb"/>
</Item1>
<Item2>
<PackageName Value="pas2js_rtl"/>
</Item2>
</RequiredPackages>
<Units Count="1"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="demoload.lpr"/> <Filename Value="demoload.lpr"/>

View File

@ -1,21 +1,21 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions BuildModesCount="1">
<Version Value="11"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/> <MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="demorest"/> <Title Value="demorest"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
</General> </General>
<BuildModes Count="1"> <BuildModes>
<Item1 Name="Default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -26,14 +26,6 @@
<Mode0 Name="default"/> <Mode0 Name="default"/>
</Modes> </Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pas2js_fcldb"/>
</Item1>
<Item2>
<PackageName Value="pas2js_rtl"/>
</Item2>
</RequiredPackages>
<Units Count="1"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="demorest.lpr"/> <Filename Value="demorest.lpr"/>
@ -50,13 +42,26 @@
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<AllowLabel Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
</Linking>
<Other> <Other>
<CustomOptions Value="-Jc -Jirtl.js -Jminclude"/>
<CompilerPath Value="$(pas2js)"/>
<ExecuteBefore> <ExecuteBefore>
<Command Value="$MakeExe(pas2js) -Tbrowser -Jirtl.js -Jc $Name($(ProjFile))"/> <Command Value="$MakeExe(pas2js) -Tbrowser -Jirtl.js -Jc $Name($(ProjFile))"/>
<ScanForFPCMsgs Value="True"/> <ScanForFPCMsgs Value="True"/>
<CompileReasons Compile="False" Build="False" Run="False"/>
</ExecuteBefore> </ExecuteBefore>
</Other> </Other>
<CompileReasons Compile="False" Build="False" Run="False"/>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">

View File

@ -136,8 +136,7 @@ end;
Procedure GetRecords(aRequest : TRequest; AResponse : TResponse); Procedure GetRecords(aRequest : TRequest; AResponse : TResponse);
Var Var
P : String; ID,First,Last : Integer;
I,ID,First,Last : Integer;
begin begin
First:=0; First:=0;
@ -212,7 +211,7 @@ end;
Procedure CreateRecord(aRequest : TRequest; AResponse : TResponse); Procedure CreateRecord(aRequest : TRequest; AResponse : TResponse);
Var Var
O,D,F : TJSONObject; O,D: TJSONObject;
I : integer; I : integer;
R : String; R : String;

View File

@ -1,11 +1,12 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions BuildModesCount="1">
<Version Value="10"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -13,16 +14,17 @@
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
</General> </General>
<BuildModes Count="1"> <BuildModes>
<Item1 Name="Default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<Units Count="2"> <Units Count="2">
<Unit0> <Unit0>