michael пре 5 година
родитељ
комит
58ae11c6d3
1 измењених фајлова са 7 додато и 1 уклоњено
  1. 7 1
      packages/rtl/strutils.pas

+ 7 - 1
packages/rtl/strutils.pas

@@ -20,7 +20,7 @@ unit strutils;
 interface
 
 uses
-  SysUtils;
+  SysUtils, Types;
 
 { ---------------------------------------------------------------------
     Case insensitive search/replace
@@ -217,6 +217,7 @@ function TrimLeftSet(const S: String;const CSet:Array of char): String;
 Function TrimRightSet(const S: String;const CSet:Array of char): String;
 function TrimSet(const S: String;const CSet:Array of char): String;
 
+Function SplitString(const S, Delimiters: string): TStringDynArray;
 
 type
   SizeIntArray = array of SizeInt;
@@ -2113,6 +2114,11 @@ begin
   RemovePadChars(Result,cset);
 end;
 
+function SplitString(const S, Delimiters: string): TStringDynArray;
+begin
+  Result:=S.Split(Delimiters);
+end;
+
 function StartsText(const ASubText, AText: string): Boolean; inline;
 begin
   Result := AnsiStartsText(ASubText, AText);