Ich meine das so.
1) Kann man die Prozedur Button1Click und Button2Click auch innerhalb der addiere Funktion definieren. Auch, wenn es an dieser Stelle keinen Sinn macht, würde es mich interessieren, ob sowas überhaupt möglich ist?
2) Falls, das nicht möglich ist, kann man wenigstens, die Prozedur Button1Click und Button2Click in der addiere Funktion aufrufen?
Anstatt das hier:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Message 1');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Message 2');
end;
function TForm1.addiere(z1,z2:Integer): Integer;
begin
result:=z1+z2;
end;
Sowas hier(Compiler gibt hier Fehler aus)
Code:
function TForm1.addiere(z1,z2:Integer): Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Message 1');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Message 2');
end;
begin
result:=z1+z2;
end;