pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix: Overload "IsStrEmpty" for RawByteString and UnicodeString.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6678 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2018-10-06 12:19:32 +00:00
parent aed9ac03f5
commit 7df1df08ec
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wst/trunk/server_service_imputils.pas
View File

@ -50,11 +50,17 @@ Type
end; end;
function IsStrEmpty(Const AStr:String):Boolean; function IsStrEmpty(Const AStr : RawByteString):Boolean;overload;
function IsStrEmpty(Const AStr : UnicodeString):Boolean;overload;
implementation implementation
function IsStrEmpty(Const AStr:String):Boolean; function IsStrEmpty(Const AStr : RawByteString):Boolean;
begin
Result := ( Length(Trim(AStr)) = 0 );
end;
function IsStrEmpty(Const AStr : UnicodeString):Boolean;
begin begin
Result := ( Length(Trim(AStr)) = 0 ); Result := ( Length(Trim(AStr)) = 0 );
end; end;