Allan
Thanks for your detailed (and knowledgable) reply.
I haven't ignored you, its just that I'm having to work on something more pressing.
I'll come back to it.
Steve Barker
Thanks for the pointer to the Function in my Datamodule(!). I'll check it out.
Mark
On 27 Apr 2004 at 16:25, Allan, Samuel wrote:
> Seeing as no-one more knowledgable has answered yet, here is my best
> guess. Hopefully it gets you on the right track. Not complete, and
> could be wrong.
>
> TFormatSettings is a record, and NegCurrFormat is a field of that
> record. The NegCurrFormat that you are passing is a global environment
> variable, not a TFormatSettings. You should be setting the
> NegCurrFormat field of your TFormatSettings record, then passing in
> the whole record. More correct syntax for using it is below.
> Incidently, this code doesn't work, but maybe it will help you work
> out how to do it. I think I am missing where to get the initialising
> locale ID from, and also I am probably not picking the right values
> for the fields of my TFormatSettings record correctly.
>
> procedure TForm1.btn1Click(Sender: TObject);
> var
> price: Double;
> str: string;
> format: TFormatSettings;
> begin
> GetLocaleFormatSettings(SysLocale.DefaultLCID ,format);
> format.NegCurrFormat := 1;
> format.CurrencyFormat := 0;
> format.CurrencyString := '$';
> format.CurrencyDecimals := 2;
> format.DecimalSeparator := '.';
> price := StrToFloat('-$2.50',format);
> end;
>
> It just happens (from the help also) that you also need to initialise
> your TFormatSettings by calling GetLocaleFormatSettings before using
> it. Also, I am unsure where you get the windows locale ID that you are
> supposed to pass to GetLocaleFormatSettings from
> (SysLocale.DefaultLCID is a guess, and not a good one).
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Mark Howard Sent:
> Tuesday, April 27 2004 3:11 p.m. To: [EMAIL PROTECTED] Subject:
> [DUG] StrToFloat
>
>
> Hi All
>
> I want to be able to convert a string to floating point where the
> string is in the form either $245.45 OR -$242.45
>
> The first one converts OK but the second one come up with "-$242.45 is
> not a valid floating point value.
>
> The Delphi help says:
>
> "Category
>
> floating point conversion routines
>
> Delphi syntax:
>
> function StrToFloat(const S: string): Extended; overload;
> function StrToFloat(const S: string; const FormatSettings:
> TFormatSettings):
> Extended; overload;"
>
> AND
>
> "Delphi syntax:
>
> type
>
> TFormatSettings = record
> CurrencyFormat: Byte;
> NegCurrFormat: Byte;
> ThousandSeparator: Char;"
>
> But if I use
> StrToFloat('-$242.45', NegCurrFormat)
> I get a message saying "there is on overloaded version of StrToCurr
> that can be used with these arguments."
>
> Is someone able to help, please?
>
> TIA
>
> Mark
>
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
