Break out utility functions

Author: chyndman

ElixirWeb.iss

@@ -102,51 +102,7 @@ var
 
   _int: Integer;
 
-function SplitStringRec(Str: String; Delim: String; StrList: TStringList): TStringList;
-var
-  StrHead: String;
-  StrTail: String;
-  DelimPos: Integer;
-begin
-  DelimPos := Pos(Delim, Str);
-  if (DelimPos = 0) then begin
-    StrList.Add(Str);
-    Result := StrList;
-  end else begin
-    StrHead := Str;
-    StrTail := Str;
-
-    Delete(StrHead, DelimPos, Length(StrTail));
-    Delete(StrTail, 1, DelimPos);   
-
-    StrList.Add(StrHead);
-    Result := SplitStringRec(StrTail, Delim, StrList);
-  end;
-end;
-
-function SplitString(Str: String; Delim: String): TStringList;
-begin
-  Result := SplitStringRec(Str, Delim, TStringList.Create);
-end;
-
-function GetURLFilePartRec(URL: String): String;
-var
-  SlashPos: Integer;
-begin
-  SlashPos := Pos('/', URL);
-  if SlashPos = 0 then begin
-    Result := URL;
-  end else begin;
-    Delete(URL, 1, SlashPos);
-    Result := GetURLFilePartRec(URL);
-  end;
-end;
-
-function GetURLFilePart(URL: String): String;
-begin
-  Delete(URL, 1, Pos('://', URL) + 2);
-  Result := GetURLFilePartRec(URL);
-end;
+#include "src\util.iss"
 
 function GetElixirCSVFilePath: String;
 begin

src/util.iss

@@ -0,0 +1,60 @@
+// util.iss - Useful helper functions
+// Copyright 2014 Chris Hyndman
+//
+//   Licensed under the Apache License, Version 2.0 (the "License");
+//   you may not use this file except in compliance with the License.
+//   You may obtain a copy of the License at
+//
+//       http://www.apache.org/licenses/LICENSE-2.0
+//
+//   Unless required by applicable law or agreed to in writing, software
+//   distributed under the License is distributed on an "AS IS" BASIS,
+//   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//   See the License for the specific language governing permissions and
+//   limitations under the License.
+
+function SplitStringRec(Str: String; Delim: String; StrList: TStringList): TStringList;
+var
+  StrHead: String;
+  StrTail: String;
+  DelimPos: Integer;
+begin
+  DelimPos := Pos(Delim, Str);
+  if (DelimPos = 0) then begin
+    StrList.Add(Str);
+    Result := StrList;
+  end else begin
+    StrHead := Str;
+    StrTail := Str;
+
+    Delete(StrHead, DelimPos, Length(StrTail));
+    Delete(StrTail, 1, DelimPos);   
+
+    StrList.Add(StrHead);
+    Result := SplitStringRec(StrTail, Delim, StrList);
+  end;
+end;
+
+function SplitString(Str: String; Delim: String): TStringList;
+begin
+  Result := SplitStringRec(Str, Delim, TStringList.Create);
+end;
+
+function GetURLFilePartRec(URL: String): String;
+var
+  SlashPos: Integer;
+begin
+  SlashPos := Pos('/', URL);
+  if SlashPos = 0 then begin
+    Result := URL;
+  end else begin;
+    Delete(URL, 1, SlashPos);
+    Result := GetURLFilePartRec(URL);
+  end;
+end;
+
+function GetURLFilePart(URL: String): String;
+begin
+  Delete(URL, 1, Pos('://', URL) + 2);
+  Result := GetURLFilePartRec(URL);
+end;