Currency type and ABS function
lazarus / 8-Other

----------------------------------------------------------------------
Zaher · 2007-05-02 20:05

Put Edit and Button and guess what is the results in Lazarus and
Delphi 7

Code: [Select]
var
  a, b, c:Currency;
begin
  a := 674.59;
  b := -674.59;
  c := 10;
  if (a <> Abs(b)) then
  begin
    c := (c * a) / (a - Abs(b));
    Edit1.Text := CurrToStr(c);
  end
  else
    Edit1.Text := 'Same Values'
end;


I think the problem when convert Currency to Real in Abs function.

/* i know it is Pascal problem not lazarus */