[samples] updated

Author: exilon

samples/delphi/QuickConditions/ConditionChecks.deployproj

@@ -0,0 +1,61 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <Import Condition="Exists('$(BDS)\bin\CodeGear.Deployment.targets')" Project="$(BDS)\bin\CodeGear.Deployment.targets"/>
+    <ProjectExtensions>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <PropertyGroup>
+        <DeviceId Condition="'$(Platform)'=='Android'"/>
+        <DeviceId Condition="'$(Platform)'=='Android64'"/>
+        <DeviceId Condition="'$(Platform)'=='iOSDevice64'"/>
+        <DeviceId Condition="'$(Platform)'=='iOSSimulator'"/>
+    </PropertyGroup>
+    <ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
+    <ItemGroup Condition="'$(Platform)'=='Win64'"/>
+    <ItemGroup Condition="'$(Platform)'=='Win32'">
+        <DeployFile Include="Win32\Debug\ConditionChecks.exe" Condition="'$(Config)'=='Debug'">
+            <RemoteDir>ConditionChecks\</RemoteDir>
+            <RemoteName>ConditionChecks.exe</RemoteName>
+            <DeployClass>ProjectOutput</DeployClass>
+            <Operation>0</Operation>
+            <LocalCommand/>
+            <RemoteCommand/>
+            <Overwrite>True</Overwrite>
+            <Required>True</Required>
+        </DeployFile>
+    </ItemGroup>
+    <ItemGroup Condition="'$(Platform)'=='Linux64'">
+        <DeployFile Include="Linux64\Debug\ConditionChecks" Condition="'$(Config)'=='Debug'">
+            <RemoteDir>ConditionChecks\</RemoteDir>
+            <RemoteName>ConditionChecks</RemoteName>
+            <DeployClass>ProjectOutput</DeployClass>
+            <Operation>1</Operation>
+            <LocalCommand/>
+            <RemoteCommand/>
+            <Overwrite>True</Overwrite>
+            <Required>True</Required>
+        </DeployFile>
+    </ItemGroup>
+    <ItemGroup Condition="'$(Platform)'=='OSX64'"/>
+    <ItemGroup Condition="'$(Platform)'=='Android'"/>
+    <ItemGroup Condition="'$(Platform)'=='iOSSimulator'">
+        <DeployFile Include="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib">
+            <RemoteDir>ConditionChecks.app\</RemoteDir>
+            <RemoteName>libcgunwind.1.0.dylib</RemoteName>
+            <DeployClass>DependencyModule</DeployClass>
+            <Operation>1</Operation>
+            <LocalCommand/>
+            <RemoteCommand/>
+            <Overwrite>True</Overwrite>
+        </DeployFile>
+        <DeployFile Include="$(BDS)\Redist\iossimulator\libpcre.dylib">
+            <RemoteDir>ConditionChecks.app\</RemoteDir>
+            <RemoteName>libpcre.dylib</RemoteName>
+            <DeployClass>DependencyModule</DeployClass>
+            <Operation>1</Operation>
+            <LocalCommand/>
+            <RemoteCommand/>
+            <Overwrite>True</Overwrite>
+        </DeployFile>
+    </ItemGroup>
+    <ItemGroup Condition="'$(Platform)'=='Android64'"/>
+</Project>

samples/delphi/QuickConditions/ConditionChecks.dpr

@@ -0,0 +1,80 @@
+program ConditionChecks;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  Classes,
+  System.SysUtils,
+  Quick.Console,
+  Quick.Conditions;
+
+type
+  EMyException = class(Exception);
+
+var
+  result : string;
+  num : Int64;
+  fnum : Double;
+  obj : TStream;
+
+begin
+  try
+    //text must start with h and end with o
+    result := 'Hello';
+    Condition.Requires(result,'result')
+      .IsNotEmpty
+      .StartsWith('h',True)
+      .EndsWith('o');
+
+    //text longer than 10 and contains check
+    result := 'Text to check';
+    Condition.Requires(result,'result')
+      .IsNotEmpty
+      .IsLongerThan(10)
+      .Contains('check',True);
+
+    //text must be shorter than 10
+    result := 'Text';
+    Condition.Requires(result,'result')
+      .IsNotEmpty
+      .IsShorterThan(10);
+
+    //text must be not lowercase
+    result := 'Text';
+    Condition.Requires(result,'result')
+      .IsNotEmpty
+      .IsNotLowerCase;
+
+    //num min 1 and max 10
+    num := 10;
+    Condition.Requires(num,'num')
+      .IsInRange(1,10,'value for num is out of range');
+
+    fnum := 7.3;
+    Condition.Requires(fnum,'fnum')
+      .IsGreaterThan(5)
+      .IsLessOrEqual(8)
+      .IsNotInRange(6,7);
+
+    obj := TStringStream.Create;
+    Condition.Requires(obj,'obj')
+      .WithExceptionOnFailure(EMyException)
+      .IsNotNull
+      .IsOfType(TStream)
+      .Evaluate(obj.Size = 0);
+    obj.Free;
+
+    Condition.Ensures(obj,'obj')
+      .IsNotNull;
+
+
+    cout('All conditions passed!',ccGreen);
+
+    ConsoleWaitForEnterKey;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.