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

+ CurrToStrF

Browse Source 
+ ListSeparator

git-svn-id: trunk@1100 -
This commit is contained in:
florian 2005-09-17 19:31:59 +00:00
parent b1bd426009
commit 6bce91adc0
3 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysinth.inc
View File

@ -127,6 +127,8 @@ Const
{ Currency notation. Default is $ for dollars. }
CurrencyString : String[7] = '$';
ListSeparator: Char = ',';
type
TSysLocale = record
{ Delphi compat fields}

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

@ -1144,6 +1144,11 @@ Begin
End;
End;
Function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string;
begin
result:=FloatToStrF(Value,Format,19,Digits);
end;
Function FloatToDateTime (Const Value : Extended) : TDateTime;
begin
If (Value<MinDateTime) or (Value>MaxDateTime) then

1
rtl/objpas/sysutils/sysstrh.inc
View File

@ -114,6 +114,7 @@ Function StrFmt(Buffer,Fmt : PChar; Const args: Array of const) : Pchar;
Function StrLFmt(Buffer : PCHar; Maxlen : Cardinal;Fmt : PChar; Const args: Array of const) : Pchar;
Procedure FmtStr(Var Res: String; Const Fmt : String; Const args: Array of const);
Function FloatToStrF(Value: Extended; format: TFloatFormat; Precision, Digits: Integer): String;
Function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string;
Function FloatToStr(Value: Extended): String;
Function StrToFloat(Const S : String) : Extended;
Function StrToFloatDef(Const S: String; Const Default: Extended): Extended;