paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added dbgs(extended) parameter to avoid conflicts on systems without extended

Browse Source 
git-svn-id: trunk@12716 -
This commit is contained in:
mattias 2007-11-03 16:32:04 +00:00
parent 8df71f8292
commit 56c010baf4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/fileprocs.pas
View File

@ -263,7 +263,7 @@ function DbgS(const i: int64): string; overload;
function DbgS(const r: TRect): string; overload;
function DbgS(const p: TPoint): string; overload;
function DbgS(const p: pointer): string; overload;
function DbgS(const e: extended): string; overload;
function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
function DbgS(const b: boolean): string; overload;
function DbgSName(const p: TObject): string; overload;
function DbgSName(const p: TClass): string; overload;
@ -2057,9 +2057,9 @@ begin
Result:=HexStr(p-nil,2*sizeof(PtrInt));
end;
function DbgS(const e: extended): string;
function DbgS(const e: extended; MaxDecimals: integer = 999): string;
begin
Result:=FloatToStr(e);
Result:=copy(FloatToStr(e),1,MaxDecimals);
end;
function DbgS(const b: boolean): string;