Fejl ved divider

Fordi du bruger et forkert divider tegn. Når du divider du heltalsværdier skal du bruge DIV operatoren.

x:=Taeller DIV ItemCount

/ bruges til decimaltal

Christian

Det er fordi du har erklæret din x som en integer. En integer er et helt tal. Resultatet af en divition er ALTID en folatingpoint tal, altså et kommatal. Og du kan ikke sætte en integer lig men en real (Real er Delphi\'s navn for eet floating point tal)


Det er to løsninger tiol dit problem ... En ten al lave X om til en real, eller så smide devimalerne væk fra din divition.

1)

procedure TFrmKampNr.BitBtn1Click(Sender: TObject);
Var
  X : Real;
  Taeller : Integer;
  ItemCount : Integer;
Begin
  X := Taeller/ItemCount;
end;

Eller 2:

procedure TFrmKampNr.BitBtn1Click(Sender: TObject);
Var
  X : Integer;
  Taeller : Integer;
  ItemCount : Integer;
Begin
  X := trunc(Taeller/ItemCount);
end;

Trunc er en funktion der smider decimalerne væk fra et floating point tal. Påsamme måde kan du bruge funktionen round som afrunder dit tal ....

Jens B