Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Juhu, es geht, zZaehler und zNenner wurden wohl falsch gesetzt, habe es geändert und es läuft, danke vielmals!
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Geht nicht, danke trotzdem. :-D Ergebnis weiterhin 0.
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Okay, klingt einleuchtend.^^ Hast du vielleicht eine Idee, wie ich das regeln könnte?
Das habe ich ja bereits:
procedure TTestBruchrechner.zeigeErgebnis;
begin
LZaehlerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibZaehler);
LNennerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibNenner);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Danke soweit, habe die Sache mit dem begin und end übernommen, die Methode Addition korrigiert und kuerzeUm von public nach protected verfrachtet, das Ergebnis der Addition ist weiterhin 0.
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
procedure TTestBruchrechner.BAdditionClick(Sender: TObject);
begin
self.setzeEingabe;
hatBruchrechner.Addition(hatBruch1, hatBruch2);
self.zeigeErgebnis;
end;
mBruchrechner
function Bruchrechner.Addition(pBruch1,pBruch2: Bruch): Bruch;
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Nein.
Ja.
Okay, aber wie setze ich das um? Habe es mal so versucht:
procedure Bruch.KuerzeUm(pFaktor: integer);
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by HackZu,
24. Sep 2008
Auf Geheiß des Moderators und nach erfolgreicher Lösung der vorhergehende Frage, nun eine neue Frage. :-D
Der nächste Fehler scheint hier zu entstehen, es wird die Fehlermeldung Division durch 0 ausgegeben, muss die Methode um die Zähler und Nenner der beiden Brüche erweitert werden?
mBruch
procedure Bruch.KuerzeUm(pFaktor: integer);
begin
if ((zZaehler MOD pFaktor = 0) and...