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

ide: fixed formatting og number of lines, when the thousand seperator is not a ansi char, fixes issue #17674

Browse Source 
git-svn-id: trunk@27774 -
This commit is contained in:
vincents 2010-10-20 13:06:11 +00:00
parent c9395f8b4c
commit b94e0b550a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/infobuild.pp
View File

@ -232,7 +232,7 @@ begin
NL := StrTointDef(S,0); NL := StrTointDef(S,0);
NLines := NLines + NL; NLines := NLines + NL;
LNLines.Caption := FormatFloat('#,##0',NLines); LNLines.Caption := AnsiToUTF8(FormatFloat('#,##0',NLines));
Ok := false; Ok := false;
end; end;
If Ok then PCurrentStatus.Caption := SStatus; If Ok then PCurrentStatus.Caption := SStatus;