mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 07:45:54 +01:00
MVCFramework.Functional.pas has been merged in MVCFramework.Utils.pas
This commit is contained in:
Daniele Teti
parent
41a6931e7f
commit
4b8b89d4da
@ -14,6 +14,16 @@
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
@ -58,6 +68,16 @@
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=Daniele Teti;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DllSuffix>120</DllSuffix>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
@ -1010,6 +1030,9 @@
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="Android64">False</Platform>
|
||||
<Platform value="Linux64">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
<Platform value="Win64x">False</Platform>
|
||||
|
||||
@ -14,6 +14,16 @@
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
@ -60,6 +70,18 @@
|
||||
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
@ -1020,6 +1042,9 @@
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="Android64">False</Platform>
|
||||
<Platform value="Linux64">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
<Platform value="Win64x">False</Platform>
|
||||
|
||||
@ -14,6 +14,16 @@
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
@ -69,6 +79,16 @@
|
||||
<DCC_Description>DelphiMVCFramework IDE Expert</DCC_Description>
|
||||
<DllSuffix>120</DllSuffix>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
@ -1049,6 +1069,9 @@
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="Android64">False</Platform>
|
||||
<Platform value="Linux64">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
<Platform value="Win64x">False</Platform>
|
||||
|
||||
@ -14,6 +14,16 @@
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
@ -70,6 +80,16 @@
|
||||
<DCC_Description>DMVCFramework - CopyRight (2010-2020) Daniele Teti and the DMVCFramework Team</DCC_Description>
|
||||
<DllSuffix>120</DllSuffix>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
@ -1100,6 +1120,9 @@
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="Android64">False</Platform>
|
||||
<Platform value="Linux64">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
<Platform value="Win64x">False</Platform>
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
program FunctionalProgramming;
|
||||
program HigherOrderFunctions;
|
||||
|
||||
uses
|
||||
Vcl.Forms,
|
||||
@ -1,14 +1,15 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{2443E8EE-CE91-4279-B049-8119378EB494}</ProjectGuid>
|
||||
<ProjectVersion>20.1</ProjectVersion>
|
||||
<ProjectVersion>20.2</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>FunctionalProgramming.dpr</MainSource>
|
||||
<MainSource>HigherOrderFunctions.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
<ProjectName Condition="'$(ProjectName)'==''">HigherOrderFunctions</ProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
@ -40,7 +41,7 @@
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<SanitizedProjectName>FunctionalProgramming</SanitizedProjectName>
|
||||
<SanitizedProjectName>HigherOrderFunctions</SanitizedProjectName>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
@ -160,13 +161,14 @@
|
||||
<VersionInfoKeys Name="theme"/>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">FunctionalProgramming.dpr</Source>
|
||||
<Source Name="MainSource">HigherOrderFunctions.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="4">
|
||||
<DeployFile LocalName="Win32\Debug\FunctionalProgramming.exe" Configuration="Debug" Class="ProjectOutput">
|
||||
<Deployment Version="5">
|
||||
<DeployFile LocalName="Win32\Debug\HigherOrderFunctions.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="Win32\Debug\HigherOrderFunctions.exe" Configuration="Debug" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>FunctionalProgramming.exe</RemoteName>
|
||||
<RemoteName>HigherOrderFunctions.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
@ -182,16 +184,6 @@
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClasses">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>64</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android64">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>64</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidFileProvider">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\xml</RemoteDir>
|
||||
@ -824,6 +816,9 @@
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64x">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice32">
|
||||
@ -1116,11 +1111,13 @@
|
||||
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
<ModelSupport>False</ModelSupport>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
@ -1,49 +1,51 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'DMVCFramework | Map, Filter, Reduce sample'
|
||||
ClientHeight = 326
|
||||
ClientWidth = 800
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'DMVCFramework | Map, Filter, Reduce | Sample'
|
||||
ClientHeight = 383
|
||||
ClientWidth = 754
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Position = poScreenCenter
|
||||
DesignSize = (
|
||||
800
|
||||
326)
|
||||
754
|
||||
383)
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 18
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'Map'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 204
|
||||
Left = 194
|
||||
Top = 8
|
||||
Width = 36
|
||||
Height = 13
|
||||
Caption = 'Reduce'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 390
|
||||
Left = 380
|
||||
Top = 8
|
||||
Width = 24
|
||||
Height = 13
|
||||
Caption = 'Filter'
|
||||
end
|
||||
object btnForEach: TLabel
|
||||
Left = 576
|
||||
Left = 566
|
||||
Top = 8
|
||||
Width = 39
|
||||
Height = 13
|
||||
Caption = 'ForEach'
|
||||
end
|
||||
object btnMapAddStars: TButton
|
||||
Left = 18
|
||||
Left = 8
|
||||
Top = 27
|
||||
Width = 95
|
||||
Height = 30
|
||||
@ -52,16 +54,17 @@ object MainForm: TMainForm
|
||||
OnClick = btnMapAddStarsClick
|
||||
end
|
||||
object lbMap: TListBox
|
||||
Left = 18
|
||||
Left = 8
|
||||
Top = 99
|
||||
Width = 180
|
||||
Height = 219
|
||||
Height = 276
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 219
|
||||
end
|
||||
object btnFilterBetween: TButton
|
||||
Left = 390
|
||||
Left = 380
|
||||
Top = 63
|
||||
Width = 75
|
||||
Height = 30
|
||||
@ -71,16 +74,17 @@ object MainForm: TMainForm
|
||||
OnClick = btnFilterBetwenClick
|
||||
end
|
||||
object lbFilter: TListBox
|
||||
Left = 390
|
||||
Left = 380
|
||||
Top = 99
|
||||
Width = 180
|
||||
Height = 219
|
||||
Height = 276
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
ItemHeight = 13
|
||||
TabOrder = 3
|
||||
ExplicitHeight = 219
|
||||
end
|
||||
object btnReduceSum: TButton
|
||||
Left = 204
|
||||
Left = 194
|
||||
Top = 27
|
||||
Width = 77
|
||||
Height = 30
|
||||
@ -89,16 +93,17 @@ object MainForm: TMainForm
|
||||
OnClick = btnReduceSumClick
|
||||
end
|
||||
object lbReduce: TListBox
|
||||
Left = 204
|
||||
Left = 194
|
||||
Top = 99
|
||||
Width = 180
|
||||
Height = 219
|
||||
Height = 276
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
ItemHeight = 13
|
||||
TabOrder = 5
|
||||
ExplicitHeight = 219
|
||||
end
|
||||
object btnReduceMin: TButton
|
||||
Left = 204
|
||||
Left = 194
|
||||
Top = 63
|
||||
Width = 77
|
||||
Height = 30
|
||||
@ -107,7 +112,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnReduceMinClick
|
||||
end
|
||||
object btnReduceMul: TButton
|
||||
Left = 287
|
||||
Left = 277
|
||||
Top = 27
|
||||
Width = 77
|
||||
Height = 30
|
||||
@ -116,7 +121,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnReduceMulClick
|
||||
end
|
||||
object btnReduceMax: TButton
|
||||
Left = 287
|
||||
Left = 277
|
||||
Top = 63
|
||||
Width = 77
|
||||
Height = 30
|
||||
@ -125,7 +130,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnReduceMaxClick
|
||||
end
|
||||
object btnFilterOdd: TButton
|
||||
Left = 390
|
||||
Left = 380
|
||||
Top = 27
|
||||
Width = 75
|
||||
Height = 30
|
||||
@ -135,7 +140,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnFilterOddClick
|
||||
end
|
||||
object btnFilterEven: TButton
|
||||
Left = 471
|
||||
Left = 461
|
||||
Top = 27
|
||||
Width = 82
|
||||
Height = 30
|
||||
@ -145,7 +150,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnFilterEvenClick
|
||||
end
|
||||
object btnMapCapitalize: TButton
|
||||
Left = 18
|
||||
Left = 8
|
||||
Top = 63
|
||||
Width = 95
|
||||
Height = 30
|
||||
@ -154,7 +159,7 @@ object MainForm: TMainForm
|
||||
OnClick = btnMapCapitalizeClick
|
||||
end
|
||||
object btnJustLoop: TButton
|
||||
Left = 576
|
||||
Left = 566
|
||||
Top = 27
|
||||
Width = 180
|
||||
Height = 30
|
||||
@ -163,16 +168,17 @@ object MainForm: TMainForm
|
||||
OnClick = btnJustLoopClick
|
||||
end
|
||||
object lbForEach: TListBox
|
||||
Left = 576
|
||||
Left = 566
|
||||
Top = 99
|
||||
Width = 180
|
||||
Height = 219
|
||||
Height = 276
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
ItemHeight = 13
|
||||
TabOrder = 13
|
||||
ExplicitHeight = 219
|
||||
end
|
||||
object btnForEachWithException: TButton
|
||||
Left = 576
|
||||
Left = 566
|
||||
Top = 63
|
||||
Width = 180
|
||||
Height = 30
|
||||
@ -28,7 +28,7 @@ interface
|
||||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MVCFramework.Functional;
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MVCFramework.Utils;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
@ -107,18 +107,17 @@ begin
|
||||
Result[9] := 'mary';
|
||||
end;
|
||||
|
||||
|
||||
procedure TMainForm.btnFilterBetwenClick(Sender: TObject);
|
||||
var
|
||||
InputData, OutputData: TArray<Integer>;
|
||||
FilterFunc: TPredicate<Integer>;
|
||||
FilterFunc: TPredicateClosure<Integer>;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
FilterFunc := function(const Item: Integer): boolean
|
||||
begin
|
||||
Result := (Item > 2) and (Item < 8)
|
||||
end;
|
||||
OutputData := Functional.Filter<Integer>(InputData, FilterFunc);
|
||||
OutputData := HigherOrder.Filter<Integer>(InputData, FilterFunc);
|
||||
FillList(OutputData, lbFilter.Items);
|
||||
end;
|
||||
|
||||
@ -127,7 +126,7 @@ var
|
||||
InputData, OutputData: TArray<Integer>;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Filter<Integer>(InputData,
|
||||
OutputData := HigherOrder.Filter<Integer>(InputData,
|
||||
function(const Item: Integer): boolean
|
||||
begin
|
||||
Result := Item mod 2 = 0;
|
||||
@ -140,7 +139,7 @@ var
|
||||
InputData, OutputData: TArray<Integer>;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Filter<Integer>(InputData,
|
||||
OutputData := HigherOrder.Filter<Integer>(InputData,
|
||||
function(const Item: Integer): boolean
|
||||
begin
|
||||
Result := Item mod 2 > 0;
|
||||
@ -151,7 +150,7 @@ end;
|
||||
procedure TMainForm.btnForEachWithExceptionClick(Sender: TObject);
|
||||
begin
|
||||
lbForEach.Clear;
|
||||
Functional.ForEach<Integer>(GetIntArrayOfData,
|
||||
HigherOrder.ForEach<Integer>(GetIntArrayOfData,
|
||||
procedure(const Item: Integer)
|
||||
begin
|
||||
if Item = 5 then
|
||||
@ -164,7 +163,7 @@ end;
|
||||
procedure TMainForm.btnJustLoopClick(Sender: TObject);
|
||||
begin
|
||||
lbForEach.Clear;
|
||||
Functional.ForEach<String>(GetStringArrayOfData,
|
||||
HigherOrder.ForEach<String>(GetStringArrayOfData,
|
||||
procedure(const Item: String)
|
||||
begin
|
||||
lbForEach.Items.Add(Item);
|
||||
@ -176,7 +175,7 @@ var
|
||||
InputData, OutputData: TArray<string>;
|
||||
begin
|
||||
InputData := GetStringArrayOfData;
|
||||
OutputData := Functional.Map<String>(InputData,
|
||||
OutputData := HigherOrder.Map<String>(InputData,
|
||||
function(const Item: String): String
|
||||
begin
|
||||
Result := '*' + Item + '*';
|
||||
@ -189,7 +188,7 @@ var
|
||||
InputData, OutputData: TArray<string>;
|
||||
begin
|
||||
InputData := GetStringArrayOfData;
|
||||
OutputData := Functional.Map<string>(InputData,
|
||||
OutputData := HigherOrder.Map<string>(InputData,
|
||||
function(const Item: String): String
|
||||
begin
|
||||
Result := String(Item.Chars[0]).ToUpper + Item.Substring(1);
|
||||
@ -203,7 +202,7 @@ var
|
||||
OutputData: Integer;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Reduce<Integer>(InputData,
|
||||
OutputData := HigherOrder.Reduce<Integer>(InputData,
|
||||
function(const Item1, Item2: Integer): Integer
|
||||
begin
|
||||
if Item1 > Item2 then
|
||||
@ -220,7 +219,7 @@ var
|
||||
OutputData: Integer;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Reduce<Integer>(InputData,
|
||||
OutputData := HigherOrder.Reduce<Integer>(InputData,
|
||||
function(const Item1, Item2: Integer): Integer
|
||||
begin
|
||||
if Item1 < Item2 then
|
||||
@ -237,7 +236,7 @@ var
|
||||
OutputData: Integer;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Reduce<Integer>(InputData,
|
||||
OutputData := HigherOrder.Reduce<Integer>(InputData,
|
||||
function(const Item1, Item2: Integer): Integer
|
||||
begin
|
||||
Result := Item1 * Item2;
|
||||
@ -251,7 +250,7 @@ var
|
||||
OutputData: Integer;
|
||||
begin
|
||||
InputData := GetIntArrayOfData;
|
||||
OutputData := Functional.Reduce<Integer>(InputData,
|
||||
OutputData := HigherOrder.Reduce<Integer>(InputData,
|
||||
function(const Item1, Item2: Integer): Integer
|
||||
begin
|
||||
Result := Item1 + Item2;
|
||||
@ -261,21 +260,21 @@ end;
|
||||
|
||||
procedure TMainForm.FillList(Data: TArray<Integer>; AStrings: TStrings);
|
||||
var
|
||||
I: Integer;
|
||||
lItem: Integer;
|
||||
begin
|
||||
AStrings.Clear;
|
||||
for I in Data do
|
||||
AStrings.Add(I.ToString);
|
||||
for lItem in Data do
|
||||
AStrings.Add(lItem.ToString);
|
||||
end;
|
||||
|
||||
|
||||
procedure TMainForm.FillList(Data: TArray<String>; AStrings: TStrings);
|
||||
var
|
||||
s: string;
|
||||
lItem: string;
|
||||
begin
|
||||
AStrings.Clear;
|
||||
for s in Data do
|
||||
AStrings.Add(s);
|
||||
for lItem in Data do
|
||||
AStrings.Add(lItem);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,160 +0,0 @@
|
||||
// ***************************************************************************
|
||||
//
|
||||
// Delphi MVC Framework
|
||||
//
|
||||
// Copyright (c) 2010-2024 Daniele Teti and the DMVCFramework Team
|
||||
//
|
||||
// https://github.com/danieleteti/delphimvcframework
|
||||
//
|
||||
// ***************************************************************************
|
||||
//
|
||||
// Licensed under the Apache License, Version 2.0 (the "License");
|
||||
// you may not use this file except in compliance with the License.
|
||||
// You may obtain a copy of the License at
|
||||
//
|
||||
// http://www.apache.org/licenses/LICENSE-2.0
|
||||
//
|
||||
// Unless required by applicable law or agreed to in writing, software
|
||||
// distributed under the License is distributed on an "AS IS" BASIS,
|
||||
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
// See the License for the specific language governing permissions and
|
||||
// limitations under the License.
|
||||
//
|
||||
// *************************************************************************** }
|
||||
|
||||
unit MVCFramework.Functional;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Classes;
|
||||
|
||||
|
||||
type
|
||||
EFunctionalError = class(Exception)
|
||||
|
||||
end;
|
||||
EFunctionalMapError = class(EFunctionalError)
|
||||
|
||||
end;
|
||||
|
||||
EFunctionalFilterError = class(EFunctionalError)
|
||||
|
||||
end;
|
||||
|
||||
EFunctionalForEachError = class(EFunctionalError)
|
||||
|
||||
end;
|
||||
|
||||
EFunctionalReduceError = class(EFunctionalError)
|
||||
|
||||
end;
|
||||
|
||||
TMapClosure<T> = reference to function(const Item: T): T;
|
||||
TForEachClosure<T> = reference to procedure(const Item: T);
|
||||
TMapReduce<T> = reference to function(const Left: T; const Right: T): T;
|
||||
TPredicate<T> = reference to function(const Item: T): Boolean;
|
||||
Functional = class sealed
|
||||
class function Map<T>(InputArray: TArray<T>; MapClosure: TMapClosure<T>): TArray<T>;
|
||||
class function Reduce<T: record >(InputArray: TArray<T>; ReduceFunction: TMapReduce<T>; InitValue: T): T;
|
||||
class function Filter<T>(InputArray: TArray<T>; FilterFunction: TPredicate<T>): TArray<T>;
|
||||
class procedure ForEach<T>(InputArray: TArray<T>; ForEachClosure: TForEachClosure<T>);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
System.Generics.Collections;
|
||||
|
||||
{ Functional }
|
||||
|
||||
class function Functional.Filter<T>(InputArray: TArray<T>; FilterFunction: TPredicate<T>): TArray<T>;
|
||||
var
|
||||
lIdx, I: Integer;
|
||||
List: TList<T>;
|
||||
begin
|
||||
lIdx := -1;
|
||||
try
|
||||
List := TList<T>.Create;
|
||||
try
|
||||
for I := 0 to length(InputArray) - 1 do
|
||||
begin
|
||||
lIdx := I;
|
||||
if FilterFunction(InputArray[I]) then
|
||||
begin
|
||||
List.add(InputArray[I]);
|
||||
end;
|
||||
end;
|
||||
Result := List.ToArray;
|
||||
finally
|
||||
List.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EFunctionalFilterError.CreateFmt('Filter error at index %d - [Class: %s][Message: %s]', [lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class procedure Functional.ForEach<T>(InputArray: TArray<T>; ForEachClosure: TForEachClosure<T>);
|
||||
var
|
||||
I, lIdx: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
try
|
||||
for I := Low(InputArray) to High(InputArray) do
|
||||
begin
|
||||
lIdx := I;
|
||||
ForEachClosure(InputArray[I]);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EFunctionalForEachError.CreateFmt('ForEach error at index %d - [Class: %s][Message: %s]', [lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function Functional.Map<T>(InputArray: TArray<T>; MapClosure: TMapClosure<T>): TArray<T>;
|
||||
var
|
||||
lIdx, I: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
try
|
||||
SetLength(Result, Length(InputArray));
|
||||
for I := 0 to length(InputArray) - 1 do
|
||||
begin
|
||||
lIdx := I;
|
||||
Result[I] := MapClosure(InputArray[I]);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EFunctionalMapError.CreateFmt('Map error at index %d - [Class: %s][Message: %s]', [lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function Functional.Reduce<T>(InputArray: TArray<T>; ReduceFunction: TMapReduce<T>; InitValue: T): T;
|
||||
var
|
||||
I: T;
|
||||
lIdx: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
Result := InitValue;
|
||||
try
|
||||
for I in InputArray do
|
||||
begin
|
||||
Result := ReduceFunction(Result, I);
|
||||
Inc(lIdx);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EFunctionalReduceError.CreateFmt('Reduce error at index %d - [Class: %s][Message: %s]', [lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -29,18 +29,54 @@ unit MVCFramework.Utils;
|
||||
interface
|
||||
|
||||
uses
|
||||
MVCFramework.Serializer.Commons, JsonDataObjects, MVCFramework.DuckTyping,
|
||||
System.Classes;
|
||||
MVCFramework.Serializer.Commons, JsonDataObjects,
|
||||
MVCFramework.DuckTyping, System.Classes, System.SysUtils;
|
||||
|
||||
type
|
||||
EHOError = class(Exception)
|
||||
|
||||
end;
|
||||
|
||||
EHOMapError = class(EHOError)
|
||||
|
||||
end;
|
||||
|
||||
EHOFilterError = class(EHOError)
|
||||
|
||||
end;
|
||||
|
||||
EHOForEachError = class(EHOError)
|
||||
|
||||
end;
|
||||
|
||||
EHOReduceError = class(EHOError)
|
||||
|
||||
end;
|
||||
|
||||
TMapClosure<T> = reference to function(const Item: T): T;
|
||||
TForEachClosure<T> = reference to procedure(const Item: T);
|
||||
TMapReduceClosure<T> = reference to function(const Left: T; const Right: T): T;
|
||||
TPredicateClosure<T> = reference to function(const Item: T): Boolean;
|
||||
|
||||
HigherOrder = class sealed
|
||||
class function Map<T>(const InputArray: TArray<T>;
|
||||
const MapClosure: TMapClosure<T>): TArray<T>;
|
||||
class function Reduce<T>(const InputArray: TArray<T>;
|
||||
const ReduceFunction: TMapReduceClosure<T>; InitValue: T): T;
|
||||
class function Filter<T>(const InputArray: TArray<T>;
|
||||
const FilterFunction: TPredicateClosure<T>): TArray<T>;
|
||||
class procedure ForEach<T>(const InputArray: TArray<T>;
|
||||
const ForEachClosure: TForEachClosure<T>);
|
||||
end;
|
||||
|
||||
function NewJSONSerializer: IMVCJSONSerializer;
|
||||
function StrToJSONObject(const aString: String; ARaiseExceptionOnError: Boolean = False): TJsonObject;
|
||||
function StrToJSONArray(const aString: String; ARaiseExceptionOnError: Boolean = False): TJsonArray;
|
||||
function WrapAsList(const AObject: TObject; AOwnsObject: Boolean = False): IMVCList;
|
||||
function GetMD5HashFromStream(AStream: TStream): string;
|
||||
function GetMD5HashFromString(const AString: String): string;
|
||||
function GetSHA1HashFromString(const AString: String): string;
|
||||
function GetSHA1HashFromStream(AStream: TStream): string;
|
||||
function StrToJSONObject(const aString: String; aRaiseExceptionOnError: Boolean = False): TJsonObject;
|
||||
function StrToJSONArray(const aString: String; aRaiseExceptionOnError: Boolean = False): TJsonArray;
|
||||
function WrapAsList(const aObject: TObject; const aOwnsObject: Boolean = False): IMVCList;
|
||||
function GetMD5HashFromStream(const aStream: TStream): string;
|
||||
function GetMD5HashFromString(const aString: String): string;
|
||||
function GetSHA1HashFromString(const aString: String): string;
|
||||
function GetSHA1HashFromStream(const aStream: TStream): string;
|
||||
|
||||
implementation
|
||||
|
||||
@ -51,77 +87,77 @@ uses
|
||||
IdHashMessageDigest,
|
||||
IdHashSHA,
|
||||
{$ENDIF}
|
||||
System.Generics.Collections,
|
||||
MVCFramework.Serializer.JsonDataObjects,
|
||||
MVCFramework.Commons,
|
||||
System.SysUtils,
|
||||
System.TypInfo;
|
||||
|
||||
function GetMD5HashFromStream(AStream: TStream): string;
|
||||
function GetMD5HashFromStream(const aStream: TStream): string;
|
||||
{$IF not defined(TOKYOORBETTER)}
|
||||
var
|
||||
lMD5Hash: TIdHashMessageDigest5;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IF defined(TOKYOORBETTER)}
|
||||
Result := THashMD5.GetHashString(AStream);
|
||||
Result := THashMD5.GetHashString(aStream);
|
||||
{$ELSE}
|
||||
lMD5Hash := TIdHashMessageDigest5.Create;
|
||||
try
|
||||
Result := lMD5Hash.HashStreamAsHex(AStream);
|
||||
Result := lMD5Hash.HashStreamAsHex(aStream);
|
||||
finally
|
||||
lMD5Hash.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function GetSHA1HashFromStream(AStream: TStream): string;
|
||||
function GetSHA1HashFromStream(const aStream: TStream): string;
|
||||
{$IF not defined(TOKYOORBETTER)}
|
||||
var
|
||||
lSHA1Hash: TIdHashSHA1;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IF defined(TOKYOORBETTER)}
|
||||
Result := THashSHA1.GetHashString(AStream);
|
||||
Result := THashSHA1.GetHashString(aStream);
|
||||
{$ELSE}
|
||||
lSHA1Hash := TIdHashSHA1.Create;
|
||||
try
|
||||
Result := lSHA1Hash.HashStreamAsHex(AStream);
|
||||
Result := lSHA1Hash.HashStreamAsHex(aStream);
|
||||
finally
|
||||
lSHA1Hash.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function GetMD5HashFromString(const AString: String): string;
|
||||
function GetMD5HashFromString(const aString: String): string;
|
||||
{$IF not defined(TOKYOORBETTER)}
|
||||
var
|
||||
lMD5Hash: TIdHashMessageDigest5;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IF defined(TOKYOORBETTER)}
|
||||
Result := THashMD5.GetHashString(AString);
|
||||
Result := THashMD5.GetHashString(aString);
|
||||
{$ELSE}
|
||||
lMD5Hash := TIdHashMessageDigest5.Create;
|
||||
try
|
||||
Result := lMD5Hash.HashStringAsHex(AString);
|
||||
Result := lMD5Hash.HashStringAsHex(aString);
|
||||
finally
|
||||
lMD5Hash.Free;
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function GetSHA1HashFromString(const AString: String): string;
|
||||
function GetSHA1HashFromString(const aString: String): string;
|
||||
{$IF not defined(TOKYOORBETTER)}
|
||||
var
|
||||
lSHA1Hash: TIdHashSHA1;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IF defined(TOKYOORBETTER)}
|
||||
Result := THashSHA1.GetHashString(AString);
|
||||
Result := THashSHA1.GetHashString(aString);
|
||||
{$ELSE}
|
||||
lSHA1Hash := TIdHashSHA1.Create;
|
||||
try
|
||||
Result := lSHA1Hash.HashStringAsHex(AString);
|
||||
Result := lSHA1Hash.HashStringAsHex(aString);
|
||||
finally
|
||||
lSHA1Hash.Free;
|
||||
end;
|
||||
@ -134,19 +170,122 @@ begin
|
||||
Result := TMVCJsonDataObjectsSerializer.Create;
|
||||
end;
|
||||
|
||||
function StrToJSONObject(const aString: String; ARaiseExceptionOnError: Boolean = False): TJsonObject;
|
||||
function StrToJSONObject(const aString: String; aRaiseExceptionOnError: Boolean = False): TJsonObject;
|
||||
begin
|
||||
Result := MVCFramework.Serializer.JSONDataObjects.StrToJSONObject(aString, ARaiseExceptionOnError);
|
||||
Result := MVCFramework.Serializer.JSONDataObjects.StrToJSONObject(aString, aRaiseExceptionOnError);
|
||||
end;
|
||||
|
||||
function StrToJSONArray(const aString: String; ARaiseExceptionOnError: Boolean = False): TJsonArray;
|
||||
function StrToJSONArray(const aString: String; aRaiseExceptionOnError: Boolean = False): TJsonArray;
|
||||
begin
|
||||
Result := MVCFramework.Serializer.JSONDataObjects.StrToJSONArray(aString, ARaiseExceptionOnError);
|
||||
Result := MVCFramework.Serializer.JSONDataObjects.StrToJSONArray(aString, aRaiseExceptionOnError);
|
||||
end;
|
||||
|
||||
function WrapAsList(const AObject: TObject; AOwnsObject: Boolean = False): IMVCList;
|
||||
function WrapAsList(const aObject: TObject; const aOwnsObject: Boolean = False): IMVCList;
|
||||
begin
|
||||
Result := MVCFramework.DuckTyping.WrapAsList(AObject, AOwnsObject);
|
||||
Result := MVCFramework.DuckTyping.WrapAsList(aObject, aOwnsObject);
|
||||
end;
|
||||
|
||||
{ HigherOrder }
|
||||
|
||||
class function HigherOrder.Filter<T>(const InputArray: TArray<T>;
|
||||
const FilterFunction: TPredicateClosure<T>): TArray<T>;
|
||||
var
|
||||
lIdx, I: Integer;
|
||||
lList: TList<T>;
|
||||
begin
|
||||
lIdx := -1;
|
||||
try
|
||||
lList := TList<T>.Create;
|
||||
try
|
||||
for I := 0 to Length(InputArray) - 1 do
|
||||
begin
|
||||
lIdx := I;
|
||||
if FilterFunction(InputArray[I]) then
|
||||
begin
|
||||
lList.add(InputArray[I]);
|
||||
end;
|
||||
end;
|
||||
Result := lList.ToArray;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EHOFilterError.CreateFmt
|
||||
('Filter error at index %d - [Class: %s][Message: %s]',
|
||||
[lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class procedure HigherOrder.ForEach<T>(const InputArray: TArray<T>;
|
||||
const ForEachClosure: TForEachClosure<T>);
|
||||
var
|
||||
I, lIdx: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
try
|
||||
for I := Low(InputArray) to High(InputArray) do
|
||||
begin
|
||||
lIdx := I;
|
||||
ForEachClosure(InputArray[I]);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EHOForEachError.CreateFmt
|
||||
('ForEach error at index %d - [Class: %s][Message: %s]',
|
||||
[lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function HigherOrder.Map<T>(const InputArray: TArray<T>;
|
||||
const MapClosure: TMapClosure<T>): TArray<T>;
|
||||
var
|
||||
lIdx, I: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
try
|
||||
SetLength(Result, Length(InputArray));
|
||||
for I := 0 to Length(InputArray) - 1 do
|
||||
begin
|
||||
lIdx := I;
|
||||
Result[I] := MapClosure(InputArray[I]);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EHOMapError.CreateFmt
|
||||
('Map error at index %d - [Class: %s][Message: %s]',
|
||||
[lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function HigherOrder.Reduce<T>(const InputArray: TArray<T>;
|
||||
const ReduceFunction: TMapReduceClosure<T>; InitValue: T): T;
|
||||
var
|
||||
I: T;
|
||||
lIdx: Integer;
|
||||
begin
|
||||
lIdx := 0;
|
||||
Result := InitValue;
|
||||
try
|
||||
for I in InputArray do
|
||||
begin
|
||||
Result := ReduceFunction(Result, I);
|
||||
Inc(lIdx);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
raise EHOReduceError.CreateFmt
|
||||
('Reduce error at index %d - [Class: %s][Message: %s]',
|
||||
[lIdx, E.ClassName, E.Message]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user