Problem get value CurrencyEdit

[ecrypt]

//problem only on Lazarus 1.6.0-64-bit in Win7-64-bit

procedure TForm1.CurrencyEdit1Change(Sender: TObject);
var
  a:Currency;
begin
  a:=500;
  CurrencyEdit3.Value:=CurrencyEdit1.Value*a-CurrencyEdit2.Value;

  //examples
  //1 * 500 -100 = 4000000 - (wrong value)
 
end;                     

[Bart]

And CurrencyEdit1 is of which type?

Bart

[ecrypt]

I try to run this code in the Lazarus 1.6 64 on windows 64 bit
This problem only occurs in 1.6 64 on windows 64 bit and not on other versions
there may be an error

sorry i use google translate

[ecrypt]

//Run: Lazarus 1.6.0-32-bit in Win7-64-bit and Lazarus 1.6.0-amd64 in Debian-8.2-amd64

procedure TForm1.CurrencyEdit1Change(Sender: TObject);
var
  a:Currency;
begin
  a:=500;
  CurrencyEdit3.Value:=CurrencyEdit1.Value*a-CurrencyEdit2.Value;

  //example i get value
  //1 * 500 -100 = 400 - (right value)
end;

But

//Run: problem only on Lazarus 1.6.0-64-bit in Win7-64-bit

procedure TForm1.CurrencyEdit1Change(Sender: TObject);
var
  a:Currency;
begin
  a:=500;
  CurrencyEdit3.Value:=CurrencyEdit1.Value*a-CurrencyEdit2.Value;

  //example i get value
  //1 * 500 -100 = 4000000 - (wrong value)
 
end;                     

[Bart]

Please answer questions asked to you:

And CurrencyEdit1 is of which type?

How the hell do you expect us to help you if you give us isufficient information.

Bart

[ecrypt]

Please answer questions asked to you:

And CurrencyEdit1 is of which type?

How the hell do you expect us to help you if you give us isufficient information.

Bart

if you use tcurrencyedit rxfpc componnt, you understand this currency type.

if you use lazarus 1.6.0-amd64 on win7-64bit you can try this code.

[Zath]

What are you looking for ?
You could use a float variable for currency.

Is there a property setting on the component for number size ?

[BrunoK]

Would it be similar to
http://bugs.freepascal.org/view.php?id=29760

[Bart]

if you use tcurrencyedit rxfpc componnt, you understand this currency type.

OK, next time please describe the component you're having trouble with, especially if it is not installed by default.

Bart

[ecrypt]

What are you looking for ?
You could use a float variable for currency.

Is there a property setting on the component for number size ?

My problem would it be similar to

Would it be similar to
http://bugs.freepascal.org/view.php?id=29760

Ok, Thank's BrunoK

[ecrypt]

if you use tcurrencyedit rxfpc componnt, you understand this currency type.

OK, next time please describe the component you're having trouble with, especially if it is not installed by default.

Bart

Ok, thank's Bart for you'r attention.

Mybe i'am use lazarus 1.6.0 32bit for my project on OS Windows.