Solved

TField.AsCurrency - How use a different currency symbol than $ ?

Posted on 2007-11-20
5
719 Views
Last Modified: 2012-06-27
Hello,

I'm trying to use TField.AsCurrency, but I want to display an amount in euros, not dollars?  How can I make it use a different currency symbol?  Here's what I have so far:

          Value := dataModule.tblOutput.FieldByName('ExtendedList').AsCurrency;

This always gives me '$100.00' or the like.  I need it just show the amount in euros, or a secondary goal would be to display the number in currency format (2 decimal places) without the currency symbol at all.

Thanks!
0
Comment
Question by:light_bulb
  • 3
  • 2
5 Comments
 
LVL 28

Expert Comment

by:2266180
ID: 20319957
use the global variable CurrencyString  to the desired value.
0
 
LVL 13

Expert Comment

by:rfwoolf
ID: 20320012
When working with currency I believe by default it uses your locale settings, set:
Control Panel -> Regional and Language Options

***TRY*** this, might work, not sure where it should go, try in your application's main form, else your Project -> View Source.
CurrencyString := 'R$';
0
 
LVL 28

Accepted Solution

by:
2266180 earned 500 total points
ID: 20320466
getting over the fact that I suggested the use of currencystring before you.

R$ ??? lol. what's that for?
R$ will only make the string look like: R$100.00
which in my opinion is not helping.

he either wants to use
CurrencyString := '';
or
CurrencyString := 'euro';

also setting the CurrencyFormat and NegCurrFormat      might be desirable

CurrencyDecimals needs to be set for teh number of digits after the dot

and as I understood, this is about a value displayed in a table or using currtostr fucntion

if it's the latter then I suggest soemthing like this:

var value:currency;
    fs:tformatsettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
  fs.CurrencyString:='euro';
  fs.CurrencyFormat:=3;
  Value := dataModule.tblOutput.FieldByName('ExtendedList').AsCurrency;
  showmessage(CurrToStrF(value, ffCurrency, 2, fs));// this is placed wherever the string needs to be put

if no currency string is needed then use
  fs.CurrencyString:='';
  fs.CurrencyFormat:=0;

everything that is in tformatsettings is also as a global variable, so if you need this in the default TDBTable, then you need to set the global variable (that's why I suggested it in the first place).

the global vairables are not thread safe whereas the formatsettings variable approach is thread safe. that woul dbe the main difference between the 2 approaches.
0
 
LVL 13

Expert Comment

by:rfwoolf
ID: 20320509
Your reaction is not entirely appropriate, it's what they call an "Edit conflict" -- when I posted my solution you had beat me to it - doesn't mean I maliciously copied your solution in an attempt to, well, I don't know.

Secondly, you are correct about R$ but this would have worked anyway. The solution I had looked up used that symbol, so that's what I had copy-pasted in a hurry -- not in a hurry enough I might add since you had already pasted an answer.

You need not fear, you got awarded the points anyway. The OP can see you posted it first.
0
 
LVL 28

Expert Comment

by:2266180
ID: 20320790
I've been around for a few years and I've seen too many answers accepted by the question askers where the accepted answer was a "better"/"more details"/"had an example"/etc answer. (and I don't exagerate when I say too many)
it's like I don't have the time to post an example, or just am in a hurry or whatever and somebody comes along and based on my suggestion, makes  a small demo and they get the points (all of them. been there, seen that, again too many times).
and a few times, the question asker admitted they didn't look attentivly to my answer because it did not contain an example of usage.

bleah. anyway, I now have some "weird" policies towards what and how I ask on EE, my "reaction" was just one of those. I don't care about the points. if you look closely, I've got plenty of them. But I do care that if I give a correct answer, I get what is fairly mine. and that is in almost all cases the grade :) this case could have been a points split for all I care, but I have bigger problems than points, and that is askers that don't know/care how to grade.
0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question