The VCL defines a type called TLargeInteger that is a comp type that is broken down into the integer components Low and High. You could simply cast the comp as a TLargeInteger and access one of it's members, and avoid using floating point functions to get at it's underlying integer value.

Example:

procedure TForm .Button Click(Sender: TObject); var c : comp; i : integer; begin c := $FFFFFF; // i := c; This won't work - incompatible types! i := Trunc(c); // This works but has additional overhead; i := TLargeInteger(c).LowPart; end;

7/ 6/98 4:3 :28 PM