diff options
Diffstat (limited to 'packages/fcl-base/src/custapp.pp')
| -rw-r--r-- | packages/fcl-base/src/custapp.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp index 62f2fb69eb..a5ce5b0a60 100644 --- a/packages/fcl-base/src/custapp.pp +++ b/packages/fcl-base/src/custapp.pp @@ -63,7 +63,7 @@ Type Function CheckOptions(Const ShortOptions : String; Const LongOpts : String) : String; Procedure GetEnvironmentList(List : TStrings;NamesOnly : Boolean); Procedure GetEnvironmentList(List : TStrings); - Procedure Log(EventType : TEventType; Msg : String); virtual; + Procedure Log(EventType : TEventType; const Msg : String); virtual; // Delphi properties property ExeName: string read GetExeName; property HelpFile: string read FHelpFile write FHelpFile; @@ -223,7 +223,7 @@ begin // Do nothing. Override in descendent classes. end; -Procedure TCustomApplication.Log(EventType : TEventType; Msg : String); +Procedure TCustomApplication.Log(EventType : TEventType; const Msg : String); begin // Do nothing. Override in descendent classes. |