baseunit, add removeurldelim function

riderkick · Aug 1, 2015 · 4a8fe4e · 4a8fe4e
1 parent 2d972ce
commit 4a8fe4e
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/baseunits/uBaseUnit.pas b/baseunits/uBaseUnit.pas
@@ -875,6 +875,8 @@ function CleanAndExpandURL(const URL: String): String;
 function CleanURL(const URL: String): String;
 function AppendURLDelim(const URL: String): String;
 function AppendURLDelimLeft(const URL: String): String;
+function RemoveURLDelim(const URL: String): String;
+function RemoveURLDelimLeft(const URL: String): String;
 function FixURL(const URL: String): String;
 function FixPath(const path: String): String;
 function GetLastDir(const path: String): String;
@@ -2299,6 +2301,20 @@ function AppendURLDelimLeft(const URL: String): String;
     Result := '/' + URL;
 end;
 
+function RemoveURLDelim(const URL: String): String;
+begin
+  Result := URL;
+  if (URL <> '') and (URL[Length(URL)] = '/') then
+    SetLength(Result, Length(Result) - 1);
+end;
+
+function RemoveURLDelimLeft(const URL: String): String;
+begin
+  Result := URL;
+  if (URL <> '') and (URL[1] = '/') then
+    Delete(Result, 1, 1);
+end;
+
 function FixURL(const URL : String) : String;
 begin
   Result := URL;