Methodenaufruf nur für Klassenmethoden und Konstruktoren

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