double to Integer

[Sharky]

Hai Sidores,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 test1  : Double;
 test2  : Integer;
begin
 test2 := Trunc(test1);
 test2 := Round(test1);
end;

[Edit]Das Luckie und der Feuervogel waren wohl schneller[/edit]