paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 13:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codebrowser: thousandseparator, bug #19019

Browse Source 
git-svn-id: trunk@30090 -
This commit is contained in:
mattias 2011-03-30 20:13:35 +00:00
parent 3b4ec3eed8
commit ed876e5df9
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/opengl/example/imgui.lpi
View File

@ -94,4 +94,4 @@
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
</CONFIG>

4
ide/codebrowser.pas
View File

@ -1771,6 +1771,7 @@ const
function BigIntToStr(i: integer): string;
var
p: Integer;
ThousandSep: String;
begin
if i=0 then begin
Result:='0';
@ -1795,9 +1796,10 @@ const
end;
p:=0;
ThousandSep:=AnsiToUTF8(DefaultFormatSettings.ThousandSeparator);
while i>0 do begin
if p=3 then begin
Result:=DefaultFormatSettings.ThousandSeparator+Result;
Result:=ThousandSep+Result;
p:=0;
end;
Result:=chr((i mod 10)+ord('0'))+Result;