Das geht entweder mit einem Cast oder z. B. auch mit varianten Records. Das funktioniert in jeder Delphi Version bzw. jedem Pascal Compiler (FPC) was ja bei deinem Publikum möglicherweise eine Rolle spielt.
Code:
type TVariantSingleInteger = record
Case Byte of
0 : (s : Single);
1 : (i : Integer);
end;
...
function Single2Integer(const s : Single) : Integer;
var r : TVariantSingleInteger;
begin
r.s := s;
result := r.i;
end;
hth Ha Joe