paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:14:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added sendinteger,sendpointer

Browse Source 
git-svn-id: trunk@1329 -
This commit is contained in:
michael 2005-10-08 12:40:17 +00:00
parent f72ffe6b01
commit 7d99a8e45b
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/inc/dbugintf.pp
View File

@ -24,6 +24,8 @@ Type
procedure SendBoolean(const Identifier: string; const Value: Boolean);
procedure SendDateTime(const Identifier: string; const Value: TDateTime);
procedure SendInteger(const Identifier: string; const Value: Integer; HexNotation: Boolean = False);
procedure SendPointer(const Identifier: string; const Value: Pointer);
procedure SendDebugEx(const Msg: string; MType: TDebugLevel);
procedure SendDebug(const Msg: string);
procedure SendInteger(const Identifier: string; const Value: Integer);
@ -102,6 +104,21 @@ begin
SendDebugFmt('%s = %s',[Identifier,DateTimeToStr(Value)]);
end;
procedure SendInteger(const Identifier: string; const Value: Integer; HexNotation: Boolean = False);
Const
Msgs : Array[Boolean] of string = ('%s = %d','%s = %x');
begin
SendDebugFmt(Msgs[HexNotation],[Identifier,Value]);
end;
procedure SendPointer(const Identifier: string; const Value: Pointer);
begin
SendDebugFmt('%s = %p',[Identifier,Value]);
end;
procedure SendDebugEx(const Msg: string; MType: TDebugLevel);
Var