Problem with int() and trunc() !

Math problem !!!!!!!!

normally int(226.0) returns 226 and
trunc(226.0) returns 226

But I am getting both returning 225
in the code below !


   function EvenCmClasses(OriginalHt:Double) : Double;
   {Converts X to an even cm class, and rounds to two       decimals}
   var
      Ht100, Ht1000, InitialClass : Double;
      CorrectIt : LongInt;
   begin
      Ht100:= OriginalHt*100.0;
      Ht1000:= OriginalHt*1000.0;
      CorrectIt:= Trunc(Ht100);
      InitialClass:= CorrectIt/100.0;
     {InitialClass:= Int(Ht100)/100.0;}

The OriginalHt comes from a sum of a
TOvcPictureArrayEditor set to datatype = ptfDouble

Watches shows OriginalHt = 226

Can anyone give me some help with this ?

John.
LVL 1
jturpinAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

kjtengCommented:
i run your code and find the OriginalHt=226 and initialClass=226.
How did you get 225?
what is ptfDouble? a pointer type?
0
JimBob091197Commented:
I agree with kjteng.

Are you trying to round to 2 decimal places?  If so, then your logic is currently "(Int(Num * 100)) / 100".  However, this will always round down, e.g. 226.236 becomes 226.23.  To fix this, add 0.5 after the Int part, i.e. "(Int((Num * 100) + 0.5)) / 100".

Then 226.234 -> 226.23, but 226.235 -> 226.24

In your particular example, I get 226 like kjteng.

Regards,
JB
0
jturpinAuthor Commented:
I have no idea why it is returning 225. I
was hoping someone could give me some
pointers.

ptfDouble is one of the enumerated values
used by Orpheus. It defines the field data
type as double.

Did you both use orpheus ?

In this routine I need to cut the number off
after the second decimal, without rounding.

John.
0
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

JimBob091197Commented:
Hi again,

I don't use Orpheus, although that shouldn't matter.

This is a very strange problem you have.  If you like, you can e-mail me a sample app which gives the incorrect value, and I can have a look at it.  My e-mail address is davekw@iafrica.com.

Regards,
JB
0
kjtengCommented:
The problem MAT BE due to the actual parameter passed to the function. Check the variable type and also watch the value of the number before it is passed to the function. I suspect that the value passed to the function was 225.99999999 and the .999999 was trucated.

I do not use orpheus though i heard of that before.
0
kjtengCommented:
The problem MAY BE due to the actual parameter passed to the function. Check the variable type and also watch the value of the number before it is passed to the function. I suspect that the value passed to the function was 225.99999999 and the .999999 was trucated.

I do not use orpheus though i heard of that before.
0
rickpetCommented:
As stated earlier by kjteng...you are most likely passing 225.999999999, Delphi's IDE show's this as 226 and not 225.999999999, even though it stores it and handles it as 225.999999999. Step through the code and watch the variables...you'll see what I mean.

Rick

function MyTrunc(value: Double): double;
begin
  value := value * 100.0;
  value := trunc(value);
  result := value/100.0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myDouble: double;
begin
  myDouble := 225.999999999;
  Label1.Caption := FloatToStr(MyTrunc(myDouble));
end;

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.