Teilen ohne Nachkommastellen

[DeadyEye]

Mein problem ist folgendes. Ein bestimmter Wert, soll durch 2 geteilt werden, also z.b. 81 / 2. Ich möchte aber anstatt 40.5 nur 40, also nur die zahl vor der Kommastelle haben. Wie geht das einfach und mit möglichst wenig Code? Auf einem Umweg bekomm ich das hin, aber ich will ja nicht erst jede Stelle durchlaufen bis zu einem Punkt und dann den alles rausfiltern was links vom Punkt steht, das wäre ja irgendwie ziemlich umständlich.

[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;
  ...

......

[alcaeus]

Sieh die die Funktionen Trunc, Round und Int in der Delphi-OH an. Diese sind das was du brauchst.

Greetz
alcaeus

[edit]Wieder mal zu langsam [/edit]

[DeadyEye]

Vielen Dank, ahbe es mit der Funktion Trunc gemacht.

[roderich]

Zitat:

Vielen Dank, ahbe es mit der Funktion Trunc gemacht.

wieso mit Trunc, war es mit DIV zu einfach ?

Roderich

[supermuckl]

gell.. sieht bestimmt zu unkompliziert aus wenns mit DIV gemacht ist