Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Extended nullable types sample

Browse Source
This commit is contained in:
Daniele Teti 2024-07-29 09:18:21 +02:00
parent d932857f34
commit 7e28bc959e
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
samples/nullable_types_showcase/NullableTypesShowcase.dpr
View File

@ -39,6 +39,20 @@ begin
{ {
lNullableInt.Value raises exception if "lNullableInt.IsNull = True" 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; end;
begin begin