From dea7b6a726a63e4ac0fcada4f2d1b0907707116f Mon Sep 17 00:00:00 2001 From: michael Date: Fri, 30 Jul 2010 09:26:21 +0000 Subject: * Patch from Luiz Americo to use const string params in Log call git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15665 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-base/src/custapp.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/fcl-base') 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. -- cgit v1.2.1