Thema: Delphi Binärer Baum mit Klasse

Einzelnen Beitrag anzeigen

ub60

Registriert seit: 14. Nov 2004
18 Beiträge
 
#2

AW: Binärer Baum mit Klasse

  Alt 8. Dez 2015, 20:56
Jedoch sind meine Methoden (vor allem (bzw glaube nur) beim löschen) verbuggt.
Das Problem ist eher, Du hast gar keine Methoden (außer Create und Destroy). Zumindest nicht in Deiner Klasse. Damit wird das Ganze sehr unübersichtlich. Du solltest Dir zuerst einmal überlegen, was Deine Baum-Klasse können soll und dann Methoden dafür (innerhalb der Klasse) entwerfen, nicht innerhalb des Formulars.
Ein weiterer Design-Fehler ist das Ansprechen des aktuellen Formulars innerhalb Deiner Klasse, z.B. hier:
Code:
constructor TNodeTest.Create;
begin
  inherited; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
  Form4.RE_Status.SelAttributes.Color := clGreen;
  Form4.RE_Status.Lines.Add('$' + IntToStr(Integer(self)) +  ' wurde erstellt');
  Form4.RE_Status.SelAttributes.Color := clBlack;
  Inc(Form4.NodeI);
end;
Die Ausgabe der Daten über das Formular hat in der Klasse nichts zu suchen. Eventuell könnte man an die Klasse ein Element des Formulars als Parameter übergeben; so wie Du es gemacht hast, ist es leider sehr unübersichtlich, fehleranfällig und nicht leicht auf andere Probleme (oder Formulare) anpassbar.
Überlege Dir einfach einmal, was Du alles ändern müsstest, wenn der Baum auf einem anderen Formular laufen soll...

ub60
  Mit Zitat antworten Zitat