procedure myfunc (s1,..: double);

myfunc1(x,s1);  <-- in here s1 should be inetger.
finally,
.
.
myfunc3(,..,param1,..);  <--In here param1 corresponds to
s1 and it is double.

Now what is the best way of type casting in here?.

I did invalid type casting when i did this:

procedure myfunc (s1,..: double);

var ss1:inetger;
.
.
ss1 := integer (s1)   <---type casting
myfunc1(x,ss1);
.
.
.
myfunc3(,..,param1,..)

[deleted]

ss1:= Round(s1);

  Or may be you find more usefull function Int().

"Konstantin V. Varyonov" <var...@ktk.ru> wrote in message
news:01c1ac23$49c589c0$LocalHost@varkos...

From memory, my K&R is not to hand to check, but IIRC this could be the
source of some confusion to people coming from C, because that language uses
similar notation for casting as for type coercion.

So you can have a cast such as (char *)p where p is a pointer to something
other than char, that just reinterprets the memory occupied by p; but you
could also use (double)i to create a double with the value of the integer
variable i. That's a bit more involved than simply reinterpreting memory.

[deleted]

=========== 1 ===========
type
  PChar = ^Char;

var
  P: Pointer;
  C: Char;

{...}
  C:= PChar(P)^;
{...}

=========== 2 ===========
var
  I: Integer;
  D: Double;

{...}

  D:= I; {or 1.0*I in expressions}

"Konstantin V. Varyonov" <var...@ktk.ru> wrote in message
news:01c1adaf$31933ea0$LocalHost@varkos...