[fpc-devel] How to convert Double to Comp without warning

[petr.kristan at epos.cz]

Compiling this code:

var
  t: TDateTime;
  m: Comp;
begin
  t := 1000.999;
  m := t;
end.

Throws: 
Warning: Automatic type conversion from floating type to COMP which is an integer type

How I can make this conversion without warning?
Overtyping m := Comp(t) is confusing and not delphi compatible.

Thanks.

Petr

-- 
Ing. Petr Kristan
.
EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice
tel: +420 466335223    Czech Republic (Eastern Europe) 
fax: +420 466510709