Changeset 28 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Aug 19, 2006, 4:23:25 PM (19 years ago)

Author:

RBRi

Message:

cmd line parser fix

File:

• trunk/NewView/CmdLineParameterUnit.pas (modified) (2 diffs)

trunk/NewView/CmdLineParameterUnit.pas

@@ -335 +335 @@
      aResult.Clear;
 
-     tmpState := 0;
+     tmpState := STATE_BEFORE;
      tmpCurrentCommand := '';
      for i:=1 to length(aCmdLineString) do
@@ -370 +370 @@
                STATE_START_QUOTE :
                  begin
-                    tmpState := STATE_INSIDE;
-                    tmpCurrentCommand := tmpCurrentCommand + tmpCurrentChar;
+                    tmpState := STATE_INSIDE_QUOTED_START_QUOTE;
                  end;
                STATE_INSIDE_QUOTED :