Pointer-Adresse freigeben

[Mavarik]

OK man könnte Fragen, warum ein Record...

Bei einer Classe könntest Du FreeAndNil nehmen...

Du könntest Dir auch die Instance in einer TObjectList speichern und ohne durch die Liste zu laufen alle löschen...

Aber das muss jeder für sich selber entscheiden...

[ford42]

Ja, das ist mir soweit klar.

Nur suche ich gerade eine Möglichkeit, dass (wenn z.B. PWurzelNode.rechts.rechts.links.rechts.links gelöscht werden soll) PWurzelNode.rechts.rechts.links.rechts.links auf nil zeigt.

Hätte ich noch einen Pointer, der auf das Elternelement(?) zeigt, dann wäre dies ja kein Problem, jedoch soll ich es ohne so einen Pointer lösen.

EDIT: @Mavarik, sry deinen Beitrag, hab ich erst jetzt gesehen

[mkinzler]

Delphi-Quellcode:

 Node.links.rechts := Node.rechts;
 Node.rechts.links := Node.links;
 Dispode( Node);

[Mavarik]

Hierfür?

Delphi-Quellcode:

  PNode = ^TNode;
   TNode = record
     daten: String;
     links: PNode;
     rechts: PNode;
   end; 

Function SucheNode(Const ARoot : PNode;Const ASucher : String) : PNode;
begin
  Result := ARoot;
  While Result <> NIL do
    begin
      if Result.Daten = ASucher then
        exit;
      Result := Result.rechts; 
    end;
end;

Procedure DelNode(TheNode : PNode);
begin
  if TheNode = NIL then
    exit;

  if (TheNode.Links <> NIL) then
    TheNode.Links.Rechts := TheNode.Rechts;

  if (TheNode.Rechts <> NIL) then
    TheNode.Rechts.Links := TheNode.Links;

  Dispose(TheNode);
  TheNode := NIL; // Eigentlich egal...
end;

Procedure DelNodeFromText(Const AText : String);
begin
  DelNode(SucheNode(Root,'Foo')); 
end;

[ford42]

Danke.

Aber ihr "löscht" nun einfach ALLE letzten Pointer (Mavarik nur die, die auf nil zeigen und den selben Wert haben wie der, den ich löschen will).
Oder verstehe ich es gerade nicht richtig?

[mkinzler]

Nein, wir biegen die Zeiger um

Vorher:

Code:

    
    Node -> Node -> Node
... n-1  <-  n   <- n+1 ...

Nachher:

Code:

    
    Node ->  Node
... n-1  <-  n+1 ...

[ford42]

Aber Mavarik geht doch zum Elternelement, indem er nach dem Pointer sucht, der in Result.daten den selben Wert wie in ASucher hat und dann den vorherigen Pointer nimmt.

Aber wenn es ejtzt z.B. 2 mal die selbe Zahl (nehmen wir mal 6) gibt, dann wird ja vlt die "falsche" 6/Pointer gelöscht/abgezwickt oder nicht?

[mkinzler]

Wenn es wirklich mehrere identische Knoten geben sollte, dann wäre es doch egal, welcher davon gelöscht wird.

Zudem nimmt er nicht den Vorgänger sondern schiebt den Zeiger weiter. Der zeigt am Anfang auf das Wurzellement und wird im Fall das das Zielelement noch nicht erreicht ist auf das nächste Element gesetzt.

[Mavarik]

Zitat von ford42:

Aber wenn es ejtzt z.B. 2 mal die selbe Zahl (nehmen wir mal 6) gibt, dann wird ja vlt die "falsche" 6/Pointer gelöscht/abgezwickt oder nicht?

Gut... Wenn Deine Einträge nicht eineindeutig sind, muss du halt nach einem anderen Kriterium suchen...

Darum ging es ja nicht...