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

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

FPC is not warning compatible with FPC. Proposed solution looks fine to me.

Marco van de Voort wrote

FPC is not warning compatible with FPC.

:-)

Can you give an example?

Vincent

Marco van de Voort wrote

> How I can make this conversion without warning? > Overtyping m := Comp(t) is confusing and not delphi compatible. FPC is not warning compatible with FPC. Proposed solution looks fine to me.

program co;
uses
  Classes, SysUtils;
var
  t: TDateTime;
  m: Comp;
begin
  t := 1000.999;
  m := Comp(t);
  writeln(m);
end.

#fpc -S2 co.pas
#./co
1.00100000000000E+0003

#fpc -Sd co.pas
#./co
4.65201609613812E+0018

#dcc co.pas
4.65201609613812E+0018

Petr