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

Update TemplatePro
Some checks failed
TOC Generator / TOC Generator (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Daniele Teti 2024-10-01 18:00:48 +02:00
parent 613347be1f
commit 04acc09039
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/TemplatePro.pas
View File

@ -351,6 +351,10 @@ var
begin begin
if Length(aParameters) <> 1 then if Length(aParameters) <> 1 then
FunctionError(TRttiEnumerationType.GetName<TComparandType>(aComparandType), 'expected 1 parameter'); FunctionError(TRttiEnumerationType.GetName<TComparandType>(aComparandType), 'expected 1 parameter');
if aValue.IsEmpty then
begin
FunctionError(TRttiEnumerationType.GetName<TComparandType>(aComparandType), 'Null variable for comparand');
end;
case aValue.TypeInfo.Kind of case aValue.TypeInfo.Kind of
tkInteger,tkEnumeration,tkInt64: begin tkInteger,tkEnumeration,tkInt64: begin
if TryStrToInt64(aParameters[0], lInt64Value) then if TryStrToInt64(aParameters[0], lInt64Value) then