Extended nullable types sample

danieleteti · Jul 29, 2024 · 7e28bc9 · 7e28bc9
1 parent d932857
commit 7e28bc9
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/samples/nullable_types_showcase/NullableTypesShowcase.dpr b/samples/nullable_types_showcase/NullableTypesShowcase.dpr
@@ -39,6 +39,20 @@ begin
   {
     lNullableInt.Value raises exception if "lNullableInt.IsNull = True"
   }
+
+  lNullableInt := nil; // set to null
+  Assert(lNullableInt.IsNull);
+  Assert(not lNullableInt.HasValue);
+  lNullableInt := 123;
+  Assert(lNullableInt.HasValue);
+
+  lNullableInt.SetNull; // set to null
+  Assert(lNullableInt.IsNull);
+  Assert(not lNullableInt.HasValue);
+
+  lNullableInt.Clear; // set to null
+  Assert(lNullableInt.IsNull);
+  Assert(not lNullableInt.HasValue);
 end;
 
 begin