das kann auch nicht funktionieren, wenn du die funktionen von TRechnen weiterhin aufrufst...
Delphi-Quellcode:
procedure TRechner.SubtrahiereBtnClick(Sender: TObject);
begin
a := 2;
DatenAkktualisieren;
Rechnen.Subtraktion; // <-- dieser aufruf muss weg
end;
procedure TRechner.MultipliziereBtnClick(Sender: TObject);
begin
a := 3;
DatenAkktualisieren;
Rechnen.Multiplikation; // <-- dieser aufruf muss weg
end;
procedure TRechner.DividiereBtnClick(Sender: TObject);
begin
a := 4;
DatenAkktualisieren;
Rechnen.Division; // <-- dieser aufruf muss weg
end;
außerdem nochwas, das ergebnis kann nicht korrekt zurückgeliefert werden solange du nicht deine "Grundrechenarten" prozedur aufrufst.
Delphi-Quellcode:
function TRechnen.GetErgebnis : real;
begin
GrundRechtenArten; // <-- diesen Aufruf hast du vergessen
result := Ergebnis;
end;
probier es so nochmal...