Teilen ohne Nachkommastellen

[sakura]

Wenn Du immer Integer Zahlen hast, dann gibt es eine einfache Möglichkeit DIV.

Delphi-Quellcode:

var
  A, B, Res: Integer;
begin
  A := 81;
  B := 2;
  Res := A div B;
  ...

Ansonsten, wenn es genua um 2, dann auch:

Delphi-Quellcode:

var
  A, Res: Integer;
begin
  A := 81;
  Res := A shr 1;
  ...

......