paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implementation of values 11..15 of negcurrentformat from Zeljan Rikalo

Browse Source 
git-svn-id: trunk@15982 -
This commit is contained in:
michael 2010-09-14 11:23:41 +00:00
parent 84c28084ac
commit 154c6ec4d2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/sysstr.inc
View File

@ -1439,7 +1439,12 @@ Begin
7: Result := Result + FormatSettings.CurrencyString + '-'; 7: Result := Result + FormatSettings.CurrencyString + '-';
8: Result := '-' + Result + ' ' + FormatSettings.CurrencyString; 8: Result := '-' + Result + ' ' + FormatSettings.CurrencyString;
9: Result := '-' + FormatSettings.CurrencyString + ' ' + Result; 9: Result := '-' + FormatSettings.CurrencyString + ' ' + Result;
10: Result := FormatSettings.CurrencyString + ' ' + Result + '-'; 10: Result := Result + ' ' + FormatSettings.CurrencyString + '-';
11: Result := FormatSettings.CurrencyString + ' ' + Result + '-';
12: Result := FormatSettings.CurrencyString + ' ' + '-' + Result;
13: Result := Result + '-' + ' ' + FormatSettings.CurrencyString;
14: Result := '(' + FormatSettings.CurrencyString + ' ' + Result + ')';
15: Result := '(' + Result + ' ' + FormatSettings.CurrencyString + ')';
End; End;
End; End;
End; End;