Forum: Object-Pascal / Delphi-Language
by himitsu,
16. Dez 2014
(x mod 2) = 0 ... Du meinst also NOT ODD?
Immer aufrunden?
Result := (Val1 + 1) div 2;
Result := (Val1 + Val2 div 2) div Val2;
Vor dem Dividieren die Hälfte des Divisors hinzuaddiert, führt zu einem arithmetischem Aufrunden, da man den 0-Wert um die Hälfte (auf 0,5) verschoben hat. :stupid: (oder wie auch immer man das auf Mathematikdeutsch ausdrückt)
Forum: Object-Pascal / Delphi-Language
by himitsu,
15. Dez 2014
Bitte.
Pssst: Bist'e sicher, daß dein Button eine Form ist?
Forum: Object-Pascal / Delphi-Language
by himitsu,
15. Dez 2014
Erstmal gehst du auf Self und nicht auf den Parameter, also wieso sollte dann die Große es Objektes im Parameter verändert werden? :zwinker:
Und dann willst du eine Klassen-Methode (class procedure), denn nur Jene kann man über die Klasse aufrufen.
class procedure SetzeDoppelteGroeße(Button: TButton);
class procedure SetzeHalbeGroeße(Button: TButton);
...