Additional use of splitstring_ch() function

jval1972 · Apr 24, 2022 · d3073ec · d3073ec
1 parent 917b7ae
commit d3073ec
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/Base/c_cmds.pas b/Base/c_cmds.pas
@@ -164,7 +164,7 @@ procedure C_AddCmd(const name: string; proc: cmdproc_t);
   end
   else
   begin
-    splitstring(name, name1, name2, CMDSPLITSTR);
+    splitstring_ch(name, name1, name2, CMDSPLITSTR);
     C_AddCmd(name1, proc);
     C_AddCmd(name2, proc);
   end;
@@ -180,7 +180,7 @@ function C_ExecuteCmd(const name: string): boolean;
   name1,
   parm: string;
 begin
-  splitstring(name, name1, parm);
+  splitstring_ch(name, name1, parm);
   result := C_ExecuteCmd(name1, parm);
 end;
 
@@ -194,7 +194,7 @@ function C_ExecuteCmd(const name: string; const parm: string): boolean;
   parm1,
   parm2: string;
 begin
-  splitstring(parm, parm1, parm2);
+  splitstring_ch(parm, parm1, parm2);
   result := C_ExecuteCmd(name, parm1, parm2);
 end;
 

diff --git a/Base/c_utils.pas b/Base/c_utils.pas
@@ -80,7 +80,7 @@ procedure C_CmdDir(const parm1, parm2: string);
   if mask = '' then
     exit;
 
-  splitstring(mask, mask1, mask2);
+  splitstring_ch(mask, mask1, mask2);
   C_CmdDir(mask1, mask2);
 
 end;
@@ -138,7 +138,7 @@ procedure C_CmdCat(const parm1, parm2: string);
   if mask = '' then
     exit;
 
-  splitstring(mask, mask1, mask2);
+  splitstring_ch(mask, mask1, mask2);
   C_CmdCat(mask1, mask2);
 
 end;

diff --git a/Radix/deh_main.pas b/Radix/deh_main.pas
@@ -276,7 +276,7 @@ procedure DEH_Parse(const s: TDStringList);
         break;
     mustnextline := true;
 
-    splitstring(str, token1, token2);
+    splitstring_ch(str, token1, token2);
 
     ////////////////////////////////////////////////////////////////////////////
     if (token1 = 'THING') or (token1 = 'NEWTHING') then
@@ -687,7 +687,7 @@ procedure DEH_Parse(const s: TDStringList);
           break;
         end;
 
-        splitstring(str, token1, token2, '=');
+        splitstring_ch(str, token1, token2, '=');
         state_idx := state_tokens.IndexOf(token1);
 
         if state_idx = -1 then
@@ -976,7 +976,7 @@ procedure DEH_Parse(const s: TDStringList);
         end;
 
       // Retrieve current think field index
-        splitstring(str, token1, token2, '=');
+        splitstring_ch(str, token1, token2, '=');
         sound_idx := sound_tokens.IndexOf(token1);
 
         if sound_idx = -1 then