opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Turn off adding regional thousand separators in grids again. 4 reports in one day tell me that users don't like that. Fixes issue #1484

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-25 19:23:41 +00:00
parent 53c4accde2
commit 1c0af2316a
1 changed files with 1 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/helpers.pas
View File

@ -1840,24 +1840,8 @@ end;
@return string
}
function FormatNumber( str: String ): String; Overload;
var
i, p, Left: Integer;
begin
Result := str;
Result := StringReplace(Result, '.', DecimalSeparator, [rfReplaceAll]);
// Do not add thousand separators to zerofilled numbers
if ((Length(Result) >= 1) and (Result[1] = '0'))
or ((Length(Result) >= 1) and (Result[1] = '-') and (Result[1] = '0')) then
Exit;
p := Pos(DecimalSeparator, Result);
if p = 0 then p := Length(Result)+1;
Left := 2;
if (Length(Result) >= 1) and (Result[1] = '-') then
Left := 3;
if p > 0 then for i:=p-1 downto Left do begin
if (p-i) mod 3 = 0 then
Insert(ThousandSeparator, Result, i);
end;
Result := StringReplace(str, '.', DecimalSeparator, [rfReplaceAll]);
end;