Methodenaufruf nur für Klassenmethoden und Konstruktoren

[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.