Changeset 45 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Jan 4, 2007, 8:58:09 PM (19 years ago)

Author:

RBRi

Message:

+ store the raw filenames (including quotes) also to allow sime more intelligent parameter handling

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -48 +48 @@
        windowTitle : string;
        fileNames : string;
+       fileNamesRaw : string;
        searchText : string;
 
@@ -69 +70 @@
        PROPERTY getWindowTitle : string read windowTitle;
        PROPERTY getFileNames : string read fileNames;
+       PROPERTY getFileNamesRaw : string read fileNamesRaw;
        PROPERTY getSearchText : string read searchText;
 
@@ -111 +113 @@
      windowTitle := '';
      searchText := '';
-     filenames := '';
+     fileNames := '';
+     fileNamesRaw := '';
 
      try
@@ -140 +143 @@
                  FILENAME_QUOTE :
                  begin
-                   filenames := filenames + tmpCurrentChar;
+                   fileNames := fileNames + tmpCurrentChar;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;
@@ -168 +172 @@
                    else
                    begin
-                     filenames := filenames + tmpCurrentChar;
+                     fileNames := fileNames + tmpCurrentChar;
+                     fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                      inc(currentParsePosition);
                    end;
@@ -174 +179 @@
                  FILENAME_QUOTE :
                  begin
-                   filenames := filenames + tmpCurrentChar;
+                   fileNames := fileNames + tmpCurrentChar;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;
@@ -196 +202 @@
                  begin
                    tmpState := FILENAME_QUOTE;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;
@@ -201 +208 @@
                  begin
                    tmpState := FILENAME;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;
@@ -222 +230 @@
                  begin
                    fileNames := fileNames + tmpCurrentChar;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;
                  FILENAME_QUOTE :
                  begin
-                   filenames := filenames + tmpCurrentChar;
+                   fileNames := fileNames + tmpCurrentChar;
+                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
                    inc(currentParsePosition);
                  end;