Changeset 119 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Apr 26, 2007, 1:55:46 PM (18 years ago)

Author:

RBRi

Message:

CmdLine parameter access fixed

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -55 +55 @@
 
        FUNCTION handleSwitchWithValue(const aSwitchString : String; const aSwitch : String; var aValue : String) : Boolean;
-       PROCEDURE parseSwitch(aSwitchString : String);
+       PROCEDURE parseSwitch(const aSwitchString : String);
        PROPERTY getParsedFileNames : AnsiString read parsedFileNames;
        PROPERTY getParsedSearchText : AnsiString read parsedSearchText;
@@ -83 +83 @@
   // returns a string containing the whole
   // command line parametes
-  // this as function has a problem with returning an AnsiString
-  // ! you have to provide an AnsiString (normaly an empty one)
-  PROCEDURE nativeOS2GetCmdLineParameter(aResult : AnsiString);
+  FUNCTION nativeOS2GetCmdLineParameter : AnsiString;
 
 
@@ -523 +521 @@
 
 
-  Procedure TCmdLineParameters.parseSwitch(aSwitchString : String);
+  Procedure TCmdLineParameters.parseSwitch(const aSwitchString : String);
   var
     tmpCurrentChar : char;
@@ -620 +618 @@
 
 
-  PROCEDURE nativeOS2GetCmdLineParameter(aResult : AnsiString);
+  FUNCTION nativeOS2GetCmdLineParameter : AnsiString;
   VAR
     tmpPtib : PTIB;       // thread information block
@@ -638 +636 @@
     tmpParams := tmpCmd + StrLen(tmpCmd) + 1;
 
-    AnsiSetString(aResult, tmpParams, StrLen(tmpParams));
+    result := '';
+    AnsiSetString(result, tmpParams, StrLen(tmpParams));
   END;
 END.