Binärer Baum mit Klasse

[SMO]

Zitat von ford42:

Ich scheiter gerade an den Klassenmethoden.

Also ich muss ja z.B. class procedure Einfuegen(eingabe: String) als Klassenmethode defenieren (da es ja nur einmal vorkommen darf) oder?

Ist dir der Unterschied zwischen Klasse und Objekt klar? Klassen sind quasi die Baupläne, Objekte die Realisierung (Instanzen der Klasse).
Klassenmethoden operieren auf der Klasse und haben daher nur Zugriff auf allgemeine Dinge und andere Klassenmethoden und Klassenvariablen. Aber nicht auf normale Felder einer Objektinstanz, auf denen normale Methoden operieren.
Eine Methode wie "Einfügen" ist mit ziemlicher Sicherheit keine Klassenmethode, sondern eine normale, da du dir sonst die Möglichkeit versperrst, mehrere Objekte (Instanzen) dieser Klasse zu haben, die unterschiedliche Werte eingefügt bekommen können.

Deine aktuelle Deklaration von TNodeTest scheint mir also ziemlich falsch. Mach mal überall das "class" Präfix weg.
Übrigens:

Delphi-Quellcode:

// statt:
      class var NodeI: Integer;
      class var wAendern: Integer;
      class var PWurzelNode: TNodeTest;
      class var PStandNode: TNodeTest;
      class var PParentNode: TNodeTest;
// geht auch einfach:
      class var
        NodeI: Integer;
        wAendern: Integer;
        PWurzelNode: TNodeTest;
        PStandNode: TNodeTest;
        PParentNode: TNodeTest;

// und statt
if PWurzelNode <> nil then
// kann man auch schreiben
if Assigned(PWurzelNode) then

// ist absolut gleichwertig, Assigned() testet auf <> nil, nur damit du es mal gesehen hast

[ford42]

Danke, das war mir so nicht klar. Ich habe es davor anders verstanden.

Der Tipp mit Assigned ist auch sehr hilfreich, da es Tipparbeit erspart.

Würdet ihr jetzt noch was ändern, oder passt es soweit?

[Mavarik]

Zitat von ford42:

Würdet ihr jetzt noch was ändern, oder passt es soweit?

Abgesehen von der Formatierung?

Hast Du noch Form4 in der Klasse.
Char 'r' und 'l' ???
Warum Class var... Sollte man - bis auf wenige stellen - drauf verzichten.

" if Form4.Loeschen('alles') then "


Sorry aber den Code kann man kaum lesen!

[ford42]

Erstmal dankeschön.

Zitat von Mavarik:

Abgesehen von der Formatierung?

Was findest du an der Formatierung nicht schön?

Zitat von Mavarik:

Hast Du noch Form4 in der Klasse.

Hast Recht, hab ich nun geändert.

Zitat von Mavarik:

Char 'r' und 'l' ???

da steht r für rechts und l für links. Da habe ich Char genommen, da Char weniger verbraucht als ein String. War das ein falscher Gedanke?

Zitat von Mavarik:

Warum Class var... Sollte man - bis auf wenige stellen - drauf verzichten.

Weil es davor nicht funktioniert hat und ich dachte, dass es sonst pro Objekt eine sperate Variable/Variablenwert gibt und das will ich ja nicht oder liege ich da falsch?

Zitat von Mavarik:

" if Form4.Loeschen('alles') then "

Ich weiß, dass ist unschön gelöst, aber ich weiß nicht wie ich es an der Stelle besser lösen kann.
Kann mir da bitte jemand weiterhelfen/einen Tipp geben?

Zitat von Mavarik:

Sorry aber den Code kann man kaum lesen!

Brauchst dich nicht entschuldigen, nur aus Kritik kann ich lernen, deshalb habe ich ja hier nachgefragt!

Dankeschön

EDIT: Die LoescheUndFuegeEin-Methode war bei der vorherigen verbuggt

[Mavarik]

Zitat von ford42:

Erstmal dankeschön.

Zitat von Mavarik:

Abgesehen von der Formatierung?

Was findest du an der Formatierung nicht schön?

Entspricht nicht so dem "Üblichen"... Ok Ich formatieren meinen Source auch anders als die Norm...

Um sowas wie "Rechts" und "Links" zu speichern nimm einen eigenen Typen...

Delphi-Quellcode:

Type
  TLaufrichtung = (lrKeine,lrRechts,lrLinks);

Es ist im Zip Nie die Datei BaumklasseUnit.dfm dabei... Daher kann man es nicht testen - jedenfalls nicht so einfach

[ford42]

Ok dankeschön.
Habs nun mit dem Typen gemacht.

Und nun ists auch mit der BaumklasseUnit.dfm verpackt.

LG ford42

[ford42]

Den Bug kann ich aber trotzdem nicht fixen, weil ich nicht rausbekomme wie er entsteht.

Wenn ich wild auf der Tastatur irgendwelche Werte eingebe, rechts links, verschiedene Lösch-Funktionen ausführe und dann wieder wohin navigiere kommt z. B. der Fehler, den ich unten angehängt habe.

Aber wie bekomm ich jetzt raus wodurch er entsteht?



Vielen Dank
LG ford42

EDIT: Nun auch gescheit formatiert (aber die Klammern find ich so eig schöner, deshalb hab ich sie so gelassen)
Und eig müsste es jetzt alles bugfrei laufen!