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

IdeDebugger: Change precision used for float types. issue #40768

Browse Source
This commit is contained in:
Martin 2024-02-19 22:56:05 +01:00
parent 22f04e340f
commit 05af6f9a4f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/packages/idedebugger/idedebuggerwatchresprinter.pas
View File

@ -457,9 +457,9 @@ begin
end;
rdkFloatVal: begin
case AResValue.FloatPrecission of
dfpSingle: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 8, 0);
dfpDouble: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 12, 0);
dfpExtended: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 15, 0);
dfpSingle: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 9, 0);
dfpDouble: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 17, 0);
dfpExtended: Result := FloatToStrF(AResValue.AsFloat, ffGeneral, 21, 0);
end;
end;
rdkChar: Result := PrintChar;