Forum: Object-Pascal / Delphi-Language
by BadenPower,
16. Dez 2014
Hallo zusammen,
procedure TForm1.Button1Click(Sender: TObject);
var
liNewValue: Integer;
begin
liNewValue := Ceil( StrToInt(Edit1.Text) / StrToInt(Edit2.Text) );
Forum: Object-Pascal / Delphi-Language
by BadenPower,
16. Dez 2014
Hallo zusammen,
Einfache Mathematik.
Quick and dirty mit einem Button und 3 Editfeldern zum Nachbauen:
procedure TForm1.Button1Click(Sender: TObject);
var
liNewValue: Integer;
Forum: Object-Pascal / Delphi-Language
by BadenPower,
15. Dez 2014
Hallo zusammen,
Das ist ohne Zweifel richtig.
Vielleicht denke ich manchmal etwas zu aufwendig, da ich bei Größenberechnungen von visuellen Komponenten gerne selbst entscheide, ob das Angezeigte nachher eine ungerade oder gerade Anzahl von Bildpunkten hat und daher meistens in einer Abfrage mit Ceil() und Floor() arbeite um einen gleichmäßigen Randabstand beizubehalten.
Forum: Object-Pascal / Delphi-Language
by BadenPower,
15. Dez 2014
Hallo zusammen,
Hatte ich doch geschrieben.
Daher teilte ich lediglich mit, dass ein Round() schön wäre.
Ob jetzt wirklich sinnvoll, dass stellen wir beiseite, wenn er nur in Delphi programmiert.
Forum: Object-Pascal / Delphi-Language
by BadenPower,
15. Dez 2014
Hallo zusammen,
Self.Width := Self.Width div 2; //Breite des Übergabeobjektes verdoppeln
.
Hier hast Du natürlich auch Glück, dass bei der Zuweisung der Hälfte der Breite von Delphi das Ergebnis automatisch in eine Ganzzahl umgewandelt wird.
Die Hälfte von 47 wäre 23.5 was ein Extended und kein Integer wäre und strenggenommen eigentlich nicht der Property Width zugewiesen werden...