From 4759c5fcdd8baa91a704a38405e0a729729e60c4 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Tue, 3 Mar 2015 03:43:40 +0000 Subject: [PATCH] chelper: extended log functions with overload counterparts git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3984 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/chelper/cconvlog.pas | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/components/chelper/cconvlog.pas b/components/chelper/cconvlog.pas index 5333f3a2d..78101a41c 100644 --- a/components/chelper/cconvlog.pas +++ b/components/chelper/cconvlog.pas @@ -1,3 +1,4 @@ + unit cconvlog; interface @@ -9,6 +10,8 @@ uses procedure log(const s: string); overload; +procedure log(const s, s1: string); overload; +procedure log(const s: string; i: Integer); overload; procedure log(const fmt: string; const params: array of const); overload; var @@ -34,6 +37,18 @@ begin if Assigned(_log) then _log(s); end; +procedure log(const s, s1: string); overload; +begin + if not Assigned(_log) then Exit; + log(s+s1); +end; + +procedure log(const s: string; i: Integer); overload; +begin + if not Assigned(_log) then Exit; + log(s+IntToStr(i)); +end; + procedure log(const fmt: string; const params: array of const); overload; begin if not assigned(_log) then Exit;