opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Do not add thousand separators to zerofilled numbers

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-24 18:36:57 +00:00
parent 3caf576eac
commit e5771ad084
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/helpers.pas
View File

@@ -1845,11 +1845,15 @@ var
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;
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);