Changeset 122 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Apr 26, 2007, 8:22:00 PM (18 years ago)

Author:

RBRi

Message:

more format fixes

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -66 +66 @@
        PROPERTY getLanguage : string read language;
        PROPERTY getHelpManagerFlag : boolean read helpManagerFlag;
-       FUNCTION setHelpManagerFlag(aNewValue : boolean) : boolean;
+       FUNCTION setHelpManagerFlag(const aNewValue : boolean) : boolean;
        PROPERTY getHelpManagerWindow : HWND read helpManagerWindow;
        PROPERTY getWindowPositionFlag : boolean read windowPositionFlag;
@@ -77 +77 @@
        PROCEDURE writeDetailsTo(aStrings : TStrings);
        PROCEDURE logDetails;
-       PROCEDURE parseCmdLine(aCmdLineString : AnsiString);
+       PROCEDURE parseCmdLine(const aCmdLineString : AnsiString);
        FUNCTION getOwnHelpFileName: String;
   end;
@@ -155 +155 @@
 
 
-  Function TCmdLineParameters.setHelpManagerFlag(aNewValue : boolean) : boolean;
+  Function TCmdLineParameters.setHelpManagerFlag(const aNewValue : boolean) : boolean;
   begin
        helpManagerFlag := aNewValue;
@@ -162 +162 @@
 
 
-  Procedure TCmdLineParameters.parseCmdLine(aCmdLineString : AnsiString);
+  Procedure TCmdLineParameters.parseCmdLine(const aCmdLineString : AnsiString);
   var
     tmpState : (WHITESPACE, QUOTE, SWITCH, FILENAME, TEXT);