32 div Teiler = 0 ?

[xZise]

Folgendes:

Delphi-Quellcode:

procedure TFFreggels.Zoomen(Teiler : Integer);
var
  [...]
begin
  [...]
  Showmessage(IntToStr(Round(32 / Teiler)));
  Showmessage(IntToStr(32 div Teiler));
  Showmessage(IntToStr(Teiler));
     Held10.Height := 32 div Teiler;
    Held10.Width := 32 div Teiler;


  //Objektkarte
  with Held10 do begin


    Showmessage(IntToStr(Held10.Height));
    Canvas.StretchDraw(Rechteck, HOben.Picture.Graphic);
  end;
end;

Sieht ein bisschen Chaotisch aus, ist es aber nicht ;)

Folgendes: Teiler = 1
Nachrichten:

1. 32
2. 32
3. 1
4. 0

Also ich habe da keinen Fehler Entdeckt, aber dennoch ist Held10.Height = 0 !!

[idontwantaname]

Div rundet auch :wink:

[Sharky]

Zitat:

Zitat von idontwantaname

Div rundet auch

Hai idontwantaname,

kannst Du mal beschreiben warum DIV "rundet"?

[mkinzler]

Dann rundet es aber gewaltig den 32/1 ist 32 und nicht 0!

[JasonDX]

richtig, div rundet nicht, sondern schneidet die Kommastellen ab ;)
aber das is auch nicht wirklich das Problem, schließlich müsst bei 32 div 1 auch nichts gerundet werden :gruebel:

@Topic: Ich bezweifle, dass es am div liegt. Schließlich wird der Term 32 div 1 erst ausgerechnet, (also kommt 32 raus), und dann zugewiesen. Probier einfach mal, 32 direkt zuzuweisen (also Held10.Height := 32;), dann dürfte das selbe Ergebnis reinkommen. Das Problem liegt also am Setter von Held10.Height. Von welchem Typ is Held10?

greetz
Mike

[xZise]

Vom TImage!

Und es ist an sich auch egal ob es rundet ;) oder abschneidet... fakt ist nur das er aus 32 div 1 = 0 macht...

Und es ist auch bei anderen "Teilern"!

Und schonmal danke ;) Ich habe mich auch gewundert ^^

[edit]Mit direkter Zuweisung (Held10.Height) ist es auch 32... :( [/edit]

[edit]Doch nicht ;) Falscher Wert überprüft >>> Egal ob statischer oder variabler Wert! [/edit]

[Die Muhkuh]

Zitat:

Zitat von xZise

Und es ist an sich auch egal ob es rundet ;) oder abschneidet... fakt ist nur das er aus 32 div 1 = 0 macht...

Delphi-Quellcode:

ShowMessage(IntToStr(32 div 1)); // Ergibt 32

[edit] Haste schonmal ShowMessage(IntToStr(Teiler)) gemacht? [/edit]

[xZise]

Witzbold (sry, konnte ich mir nicht verkneifen) 1. Post Delphicode Zeile 8!

[Die Muhkuh]

Zitat:

Zitat von xZise

Witzbold (sry, konnte ich mir nicht verkneifen) 1. Post Delphicode Zeile 8!

:oops: Übersehen sorry.

[xZise]

Wenn ich das nochmal zusammenfassen darf:

Bei jeder Zuweisung, egal welcher Art, ist der Wert (habe bisher nur "Height" überprüft) = 0!