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

Improved dotEnv parse of boolean value. (yes,1,true,no,0,false)

Browse Source
This commit is contained in:
Daniele Teti 2024-09-13 09:48:12 +02:00
parent 5c3c0565e8
commit 595fa907e6
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
sources/MVCFramework.DotEnv.pas
View File

@ -346,7 +346,16 @@ begin
end end
else else
begin begin
if not TryStrToBool(lTmp.Trim, Result) then lTmp := lTmp.Trim.ToLower;
if (lTmp = 'yes') or (lTmp='1') or (lTmp='true') then
begin
Exit(True);
end;
if (lTmp = 'no') or (lTmp='0') or (lTmp='false') then
begin
Exit(False);
end;
if not TryStrToBool(lTmp, Result) then
begin begin
raise EMVCDotEnv.CreateFmt('Env "%s" is not a valid boolean [Current Value: "%s"]', [Name, lTmp]); raise EMVCDotEnv.CreateFmt('Env "%s" is not a valid boolean [Current Value: "%s"]', [Name, lTmp]);
end; end;