Real in DWORD umwandeln

[turboPASCAL]

Delphi-Quellcode:

var
  s: single; //real
  d: cardinal; // dword
begin
  d := round(s);
end;

oder:

Delphi-Quellcode:

var
  s: single; //real
  d: cardinal; // dword
begin
  d := trunc(s);
end;