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

changed delete to system.delete

Browse Source
This commit is contained in:
michael 1999-03-01 12:40:06 +00:00
parent ea3f7ed428
commit 2412733cf2
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/objpas/sysstr.inc
View File

@ -770,19 +770,20 @@ Begin
Str(Value:Precision + 8, Result); Str(Value:Precision + 8, Result);
Result[3] := DecimalSeparator; Result[3] := DecimalSeparator;
If (Digits < 4) And (Result[Precision + 5] = '0') Then If (Digits < 4) And (Result[Precision + 5] = '0') Then
Begin
Delete(Result, Precision + 5, 1);
If (Digits < 3) And (Result[Precision + 5] = '0') Then
Begin Begin
Delete(Result, Precision + 5, 1); system.Delete(Result, Precision + 5, 1);
If (Digits < 3) And (Result[Precision + 5] = '0') Then
Begin
system.Delete(Result, Precision + 5, 1);
If (Digits < 2) And (Result[Precision + 5] = '0') Then If (Digits < 2) And (Result[Precision + 5] = '0') Then
Begin Begin
Delete(Result, Precision + 5, 1); system.Delete(Result, Precision + 5, 1);
If (Digits < 1) And (Result[Precision + 5] = '0') Then Delete(Result, Precision + 3, 3); If (Digits < 1) And (Result[Precision + 5] = '0') Then system.Delete(Result, Precision + 3, 3);
End; End;
End; End;
End; End;
If Result[1] = ' ' Then Delete(Result, 1, 1); If Result[1] = ' ' Then
System.Delete(Result, 1, 1);
End; End;
ffFixed: ffFixed:
@ -791,7 +792,8 @@ Begin
If Digits = -1 Then Digits := 2 If Digits = -1 Then Digits := 2
Else If Digits > 15 Then Digits := 15; Else If Digits > 15 Then Digits := 15;
Str(Value:0:Digits, Result); Str(Value:0:Digits, Result);
If Result[1] = ' ' Then Delete(Result, 1, 1); If Result[1] = ' ' Then
System.Delete(Result, 1, 1);
P := Pos('.', Result); P := Pos('.', Result);
If P <> 0 Then Result[P] := DecimalSeparator; If P <> 0 Then Result[P] := DecimalSeparator;
End; End;
@ -802,7 +804,7 @@ Begin
If Digits = -1 Then Digits := 2 If Digits = -1 Then Digits := 2
Else If Digits > 15 Then Digits := 15; Else If Digits > 15 Then Digits := 15;
Str(Value:0:Digits, Result); Str(Value:0:Digits, Result);
If Result[1] = ' ' Then Delete(Result, 1, 1); If Result[1] = ' ' Then System.Delete(Result, 1, 1);
P := Pos('.', Result); P := Pos('.', Result);
If P <> 0 Then Result[P] := DecimalSeparator; If P <> 0 Then Result[P] := DecimalSeparator;
Dec(P, 3); Dec(P, 3);
@ -826,7 +828,7 @@ Begin
If Digits = -1 Then Digits := CurrencyDecimals If Digits = -1 Then Digits := CurrencyDecimals
Else If Digits > 15 Then Digits := 15; Else If Digits > 15 Then Digits := 15;
Str(Value:0:Digits, Result); Str(Value:0:Digits, Result);
If Result[1] = ' ' Then Delete(Result, 1, 1); If Result[1] = ' ' Then System.Delete(Result, 1, 1);
P := Pos('.', Result); P := Pos('.', Result);
If P <> 0 Then Result[P] := DecimalSeparator; If P <> 0 Then Result[P] := DecimalSeparator;
Dec(P, 3); Dec(P, 3);
@ -955,7 +957,10 @@ const
{ {
$Log$ $Log$
Revision 1.13 1999-02-28 13:17:35 michael Revision 1.14 1999-03-01 12:40:06 michael
changed delete to system.delete
Revision 1.13 1999/02/28 13:17:35 michael
+ Added internationalization support and more format functions + Added internationalization support and more format functions
Revision 1.12 1999/02/24 15:56:29 michael Revision 1.12 1999/02/24 15:56:29 michael