Re: [lazarus] Currency Type gets cast a Integer

2008-01-02 Thread Graeme Geldenhuys
On 01/01/2008, Damien Gerard [EMAIL PROTECTED] wrote: For example 150.95 will be stored as 15095. For FreePascal, I don't know how it is really managed behing the scene, but in many languages or tools it is like that (D, sqlite, MS SQL...). That is such a cleaver idea! If only I thought

[lazarus] Currency Type gets cast a Integer

2008-01-01 Thread Lee Jenkins
I have a method of a class such as: function TMyObject.Test(ACurrency: Currency) begin // do some stuff end; Now, I'll call this method like: MyObject.Test(0.23); The problem is that inside the Test method, the current type is converted to an integer like 2300. Anyone see anything like

Re: [lazarus] Currency Type gets cast a Integer

2008-01-01 Thread Damien Gerard
On Jan 1, 2008, at 10:23 PM, Lee Jenkins wrote: I have a method of a class such as: function TMyObject.Test(ACurrency: Currency) begin // do some stuff end; Now, I'll call this method like: MyObject.Test(0.23); The problem is that inside the Test method, the current type is converted

Re: [lazarus] Currency Type gets cast a Integer

2008-01-01 Thread Lee Jenkins
Michael Van Canneyt wrote: On Tue, 1 Jan 2008, Lee Jenkins wrote: I have a method of a class such as: function TMyObject.Test(ACurrency: Currency) begin // do some stuff end; Now, I'll call this method like: MyObject.Test(0.23); The problem is that inside the Test method, the current

Re: [lazarus] Currency Type gets cast a Integer

2008-01-01 Thread Michael Van Canneyt
On Tue, 1 Jan 2008, Lee Jenkins wrote: Michael Van Canneyt wrote: On Tue, 1 Jan 2008, Lee Jenkins wrote: I have a method of a class such as: function TMyObject.Test(ACurrency: Currency) begin // do some stuff end; Now, I'll call this method like:

Re: [lazarus] Currency Type gets cast a Integer

2008-01-01 Thread Lee Jenkins
Michael Van Canneyt wrote: On Tue, 1 Jan 2008, Lee Jenkins wrote: Michael Van Canneyt wrote: On Tue, 1 Jan 2008, Lee Jenkins wrote: I have a method of a class such as: function TMyObject.Test(ACurrency: Currency) begin // do some stuff end; Now, I'll call this method like: