You've already forked lazarus-ccr
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:
@ -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;
|
||||
|
Reference in New Issue
Block a user