Methodenaufruf nur für Klassenmethoden und Konstruktoren

[mkinzler]

Das komplette Zitat:

Zitat:

 Self.Width := Self.Width div 2; //Breite des Übergabeobjektes verdoppeln .

[DeddyH]

Es ist aber nur jeweils der Kommentar falsch, die Methoden tun schon das, was ihr Name beschreibt.

[BadenPower]

Hallo zusammen,

Zitat von baumina:

Div liefert immer eine Ganzzahl.

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.

[Sir Rufo]

Zitat von BadenPower:

Hallo zusammen,

Zitat von baumina:

Div liefert immer eine Ganzzahl.

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.

Er soll ernsthaft erst eine Float-Division machen um das Ergebnis dann wieder mit Round in einen Integer zu transferieren?

Da ist doch das DIV wesentlich ehrlicher und tut, was verlangt wird.

[BadenPower]

Hallo zusammen,

Zitat von Sir Rufo:

Da ist doch das DIV wesentlich ehrlicher und tut, was verlangt wird.

Das ist ohne Zweifel richtig.

Zitat von Sir Rufo:

Er soll ernsthaft erst eine Float-Division machen um das Ergebnis dann wieder mit Round in einen Integer zu transferieren?

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.

[Dejan Vu]

Zitat von BadenPower:

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.

Wie schaffst Du es, mit 'Ceil' und 'Floor' zu bestimmen, ob Du eine ungerade oder gerade Anzahl von Bildpunkten hast? Poste mal deinen Code, gerne auch in einem anderen Thread.

[BadenPower]

Hallo zusammen,

Zitat von Dejan Vu:

Wie schaffst Du es, mit 'Ceil' und 'Floor' zu bestimmen, ob Du eine ungerade oder gerade Anzahl von Bildpunkten hast? Poste mal deinen Code, gerne auch in einem anderen Thread.

Einfache Mathematik.

Quick and dirty mit einem Button und 3 Editfeldern zum Nachbauen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liNewValue: Integer;
  lfValue: Extended;
begin

  lfValue := StrToInt(Edit1.Text) / StrToInt(Edit2.Text);

  if ((Ceil(lfValue) mod 2) = 0) then
   begin
    liNewValue := Ceil(lfValue);
   end
  else
   begin
    liNewValue := Ceil(lfValue) + 1;
   end;

  Edit3.Text := IntToStr(liNewValue);

end;

Wenn Du Ceil() nimmst, dann kommt nie 0 heraus, ausser der Dividend ist 0. Natürlich solltest Du auch noch vor der Teilung abfragen, ob der Divisor 0 ist, um einen Fehler zu vermeiden.

[Sir Rufo]

Also du benötigst ein abgewandelten Integer DIV

Delphi-Quellcode:

function IntCeilDiv( Val1, Val2 : Integer ) : Integer;
begin
  Result := Val1 div Val2;
  if not ( Val1 mod Val2 = 0 ) then
    Inc( Result );
end;

und kannst dann

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liNewValue: Integer;
begin

  liNewValue := IntCeilDiv( StrToInt(Edit1.Text), StrToInt(Edit2.Text) );

  if not ( liNewValue mod 2 = 0 ) then
    Inc( liNewValue );

  Edit3.Text := IntToStr(liNewValue);

end;

Hab ich das so richtig verstanden?

UPDATE
So geht es auch und ist damit kurz und knackig und man sieht auch sofort, was beabsichtigt ist

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liNewValue: Integer;
begin

  liNewValue := Ceil( StrToInt(Edit1.Text) / StrToInt(Edit2.Text) );

  if not ( liNewValue mod 2 = 0 ) then
    Inc( liNewValue );

  Edit3.Text := IntToStr(liNewValue);

end;

[himitsu]

(x mod 2) = 0 ... Du meinst also NOT ODD?

Zitat:

Delphi-Quellcode:

function IntCeilDiv( Val1, Val2 : Integer ) : Integer;
begin
  Result := Val1 div Val2;
  if Val1 mod Val2 <> 0 then
    Inc( Result );
end;

Immer aufrunden?

Delphi-Quellcode:

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. (oder wie auch immer man das auf Mathematikdeutsch ausdrückt)

[BadenPower]

Hallo zusammen,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liNewValue: Integer;
begin

  liNewValue := Ceil( StrToInt(Edit1.Text) / StrToInt(Edit2.Text) );

  if not ( liNewValue mod 2 = 0 ) then
    Inc( liNewValue );

  Edit3.Text := IntToStr(liNewValue);

end;

So geht's natürlich auch, wenn Du den Float-Wert nicht noch für andere Berechnungen benötigst.