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
This commit is contained in:
skalogryz
2015-03-03 03:43:40 +00:00
parent 3a121294b0
commit 4759c5fcdd

View File

@ -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;