paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 06:38:30 +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

4
ide/codebrowser.pas
View File

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