Zitat von
jfheins:
Habs
Zitat von
HackZu:
Delphi-Quellcode:
procedure TTestBruchrechner.BAdditionClick(Sender: TObject);
begin
self.setzeEingabe;
hatBruchrechner.Addition(hatBruch1, hatBruch2); // Was passiert mit dem Rückgabewert? genau => nix ^^
self.zeigeErgebnis;
end;
Okay, klingt einleuchtend.^^ Hast du vielleicht eine Idee, wie ich das regeln könnte?
Das habe ich ja bereits:
Delphi-Quellcode:
procedure TTestBruchrechner.zeigeErgebnis;
begin
LZaehlerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibZaehler);
LNennerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibNenner);
end;
Und so sieht jetzt die "neue" Addition aus:
Delphi-Quellcode:
function Bruchrechner.Addition(pBruch1,pBruch2: Bruch): Bruch;
begin
result:=Bruch.init;
result.setzeNenner(pBruch2.gibNenner * pBruch1.gibNenner);
result.setzeZaehler(pBruch1.gibZaehler * pBruch2.gibNenner + pBruch2.gibZaehler * pBruch1.gibNenner);
result.KuerzeVoll;
end;
Wie stelle ich das jetzt an, dass diese Werte übergeben werden? Wenn das jemand wüsste, dann könnte ich zufrieden schlafen gehen.
