TrimEx function

pozitronik · Sep 11, 2018 · 38fcab7 · 38fcab7
1 parent a9e8143
commit 38fcab7
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/MRC_Helper.pas b/MRC_Helper.pas
@@ -79,6 +79,7 @@ function RetryAttemptsToString(Attempt: integer): WideString;
 procedure ProcessMessages;
 function IncludeSlash(const Str: WideString): WideString;
 function NormalizeSlashes(const Str: WideString): WideString;
+function TrimEx(const Str: WideString; TrimChar: WideChar): WideString;
 function FormatSize(size: Int64; SizeType: integer = TYPE_AUTO): WideString; //Форматируем размер в удобочитаемый вид
 //Procedure FileLog(S: WideString);
 
@@ -682,6 +683,19 @@ function NormalizeSlashes(const Str: WideString): WideString;
 	Result := StringReplace(Str, '\', '/', [rfReplaceAll]);
 end;
 
+function TrimEx(const Str: WideString; TrimChar: WideChar): WideString;
+var
+	S, E: integer;
+begin
+	S := 1;
+	while (S <= Length(Str)) and (Str[S] = TrimChar) do
+		Inc(S);
+	E := Length(Str);
+	while (E >= 1) and (Str[E] = TrimChar) do
+		Dec(E);
+	SetString(Result, PChar(@Str[S]), E - S + 1);
+end;
+
 function FormatSize(size: Int64; SizeType: integer = TYPE_AUTO): WideString; //Форматируем размер в удобочитаемый вид
 const
 	postfixes: array [0 .. 6] of string = ('b', 'kb', 'Mb', 'Gb', 'Tb', 'Pb', 'Eb');