casting, parsing, or any other way

[seanbo]

i want to do the sum 'A / 2.55' where A is an integer, and i want the result as an integer. delphi sees 2.55 as an extened type. i presume i need to convert the A to extended, then the result to an integer. something like:

(java)Integer.parseInt(Float.parseFloat(I)/2.55);

how do i do this in delphi though?


ps - my current code looks like this:

ProgressBar1.Position := A/255;

 

[LucieLastic]

hi

ProgressBar1.Position := trunc(A/255);

Trunc gives the mantissa part of a real. Frac() would give the fraction part.

lou

 

[LucieLastic]

oops, mantissa is the fractional part, sorry.

Trunc gives the integer part of a real. Apologies for any confusion...I was trying to use flash words and failed . I think the word is magnitude but still I could be wrong.

Basically, you need Trunc().

right, I'm gone...

 

[seanbo]

got it, get it, good.

ta.

 

[Dooda]

The division A/2.55 gives a real (extended) result, and so does Int(A/2.55). You need to use Trunc(A/2.55) to truncate the real to an integer.

 

[LucieLastic]

Just thought...

You could use:-

ProgressBar1.Position := A [blue]div[/blue] 255;

Div gives the integer division and

A mod 255 would give remainder as an integer.

lou

 

[Zathras]

weez, the word you were looking for is "Characteristic" -- see

http://mathworld.wolfram.com/Characteristic.html

and

http://mathworld.wolfram.com/Mantissa.html

 

[Stretchwickster]

I was going to suggest div but you can't use it if the divisor is a real number. Perhaps seanbo could clarify whether the divisor is 255 or 2.55? If 255 then use div, if 2.55 then use trunc.

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[LucieLastic]

Thanks Zathras, you are right - interesting site that, got me thinking... cor I'm quite exhausted now.

Thanks to Clive too.

 

[towerbase]

I usually use something like

  ProgressBar1.Position := ( A * 100 ) div 255;

in these circumstances.

Andrew

 

[Zathras]

But, back to the original question?

seanbo, if the intent is to display a progress bar, why not just set the Max property to 255 and use this code:
[blue]

  ProgressBar1.Position := A;

[/color]
(Let Delphi take care of the math.)