From e399f8f9bfced6780865eb2e0693d53197bf82a7 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Mon, 23 Apr 2012 05:57:44 +0000
Subject: [PATCH] rtl: reduce warnings about deprecated symbol access

git-svn-id: trunk@21001 -
---
 rtl/objpas/fmtbcd.pp | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/rtl/objpas/fmtbcd.pp b/rtl/objpas/fmtbcd.pp
index 319e0144e6..c067332477 100644
--- a/rtl/objpas/fmtbcd.pp
+++ b/rtl/objpas/fmtbcd.pp
@@ -2576,27 +2576,27 @@ writeln ( '> ', i4, ' ', bh.Singles[i4], ' ', Add );
 
           If Not Negative Then
           Begin
-            Case CurrencyFormat Of
-              0: Result := CurrencyString + Result;
-              1: Result := Result + CurrencyString;
-              2: Result := CurrencyString + ' ' + Result;
-              3: Result := Result + ' ' + CurrencyString;
+            Case FormatSettings.CurrencyFormat Of
+              0: Result := FormatSettings.CurrencyString + Result;
+              1: Result := Result + FormatSettings.CurrencyString;
+              2: Result := FormatSettings.CurrencyString + ' ' + Result;
+              3: Result := Result + ' ' + FormatSettings.CurrencyString;
             End
           End
           Else
           Begin
-            Case NegCurrFormat Of
-              0: Result := '(' + CurrencyString + Result + ')';
-              1: Result := '-' + CurrencyString + Result;
-              2: Result := CurrencyString + '-' + Result;
-              3: Result := CurrencyString + Result + '-';
-              4: Result := '(' + Result + CurrencyString + ')';
-              5: Result := '-' + Result + CurrencyString;
-              6: Result := Result + '-' + CurrencyString;
-              7: Result := Result + CurrencyString + '-';
-              8: Result := '-' + Result + ' ' + CurrencyString;
-              9: Result := '-' + CurrencyString + ' ' + Result;
-              10: Result := CurrencyString + ' ' + Result + '-';
+            Case FormatSettings.NegCurrFormat Of
+              0: Result := '(' + FormatSettings.CurrencyString + Result + ')';
+              1: Result := '-' + FormatSettings.CurrencyString + Result;
+              2: Result := FormatSettings.CurrencyString + '-' + Result;
+              3: Result := FormatSettings.CurrencyString + Result + '-';
+              4: Result := '(' + Result + FormatSettings.CurrencyString + ')';
+              5: Result := '-' + Result + FormatSettings.CurrencyString;
+              6: Result := Result + '-' + FormatSettings.CurrencyString;
+              7: Result := Result + FormatSettings.CurrencyString + '-';
+              8: Result := '-' + Result + ' ' + FormatSettings.CurrencyString;
+              9: Result := '-' + FormatSettings.CurrencyString + ' ' + Result;
+              10: Result := FormatSettings.CurrencyString + ' ' + Result + '-';
             End;
           End;
         End;