pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

chelper: extended log functions with overload counterparts

Browse Source 
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
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/chelper/cconvlog.pas
View File

@ -1,3 +1,4 @@
unit cconvlog; unit cconvlog;
interface interface
@ -9,6 +10,8 @@ uses
procedure log(const s: string); overload; 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; procedure log(const fmt: string; const params: array of const); overload;
var var
@ -34,6 +37,18 @@ begin
if Assigned(_log) then _log(s); if Assigned(_log) then _log(s);
end; 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; procedure log(const fmt: string; const params: array of const); overload;
begin begin
if not assigned(_log) then Exit; if not assigned(_log) then Exit;