Einfach Verkettete Liste

[Stillmatic]

Hallo!

Wie kann ich den Speicherplatz einer einfach verketteten Liste frei geben??

PDaten = ^TDaten;
TDaten = record
info : TEinDatenSatz;
next : PDaten;
end;

TEinDatenSatz = record
ID : TID;
Title : TTitle;
end;

Liste : PDaten;

Wie gebe ich nun den Speicherplatz von Liste frei???

[Apollonius]

Indem du alle Zeiger freigibst:

Delphi-Quellcode:

zeiger:=Liste;
while zeiger<>nil do
  begin
    znaechster:=zeiger.next;
    dispose(zeiger);
    zeiger:=znaechster;
  end;

[Stillmatic]

Zitat:

Zitat von Apollonius

Indem du alle Zeiger freigibst:

Delphi-Quellcode:

zeiger:=Liste;
while zeiger<>nil do
  begin
    znaechster:=zeiger.next;
    dispose(zeiger);
    zeiger:=znaechster;
  end;

Ich bekomme bei Dispose Folgenden Fehler!!

First chance exception at $7C812A5B. Exception class EAccessViolation with message 'Access violation at address 00401B7B in module 'Aufgabe8.exe'. Write of address 425C3A46'. Process Aufgabe8.exe (2952)...

Weiß einer warum???

[Nikolas]

Mal so geraten: Das Letzte Element hat keinen Nachfolger, den man lesen könnte.

[Klaus01]

Guten Morgen,

zeigt der Poiter für den Nachfolger des letzen Elementes auf nil?
Wenn nicht, dann kracht es.
Grüße
Klaus

[Stillmatic]

Bei mir sieht es im Moment so aus!

Delphi-Quellcode:

Marker    := Liste;

  while Marker <> nil do
    Begin
      Naechster:=Marker.next;
      dispose(Marker);
      Marker:=Naechster;
    end;

Aber bei dispose(Marker) kommt immer ein Fehler!
Wie kann ich denn den Nachfolger des letzten Elementes auf Nil setzen?

Naechster ist ja der Nachfolger von Marker!
...also
Ist Marker ---> Naechster.next oder was???

[Klaus01]

Zitat:

Zitat von Stillmatic

Bei mir sieht es im Moment so aus!

Delphi-Quellcode:

Marker    := Liste;   // hier sollte der Anfang der Liste sein

  while Marker <> nil do
    Begin
      Naechster:=Marker.next;  // der Nachfolger vom Marker wird ermittelt
      dispose(Marker);         // der Speicher für das Element Marker wird freigegeben
      Marker:=Naechster;       // der Zeiger vom Nachfolger wird dem Marker Element übergeben
    end;

Aber bei dispose(Marker) kommt immer ein Fehler!
Wie kann ich denn den Nachfolger des letzten Elementes auf Nil setzen?

Naechster ist ja der Nachfolger von Marker!
...also
Ist Marker ---> Naechster.next oder was???

Liste -> Marker,Nachfolger -> erstes Element,Nachfolger -> zweites Element,Nachfolger -> drittes Element,Nachfolger -> nil

Normalerweise wird bei der Erstellung einer Liste immer der Nachfolger zuerst auf nil gesetzt,
gibt es dann ein weiteres Element wird der Nachfolger auf diese Element gesetzt.

Hier ist es ganz gut erklärt -> http://de.wikipedia.org/wiki/Liste_(Datenstruktur)

Grüße
Klaus

[hsg]

Zeig doch mal den Code, wie du deine Liste überhaupt erstellst. Ich befürchte eher, dass dort bereits dein Problem liegt .

[alzaimar]

Eine einfache verkettete Liste sollte immer ein 'Dummy-Element' (HEAD) beinhalten, das auf das erste Element der Liste zeigt. Elemente werden immer zwischen HEAD und HEAD.next eingefügt. Da HEAD.next anfangs mit nil belegt ist, kann man nichts falsch machen:

Delphi-Quellcode:

Type
  PLinkedList =^TLinkedList;
  TLinkedList = Record
    llNext : PLinkedList;
    llData : TInfo
  End;

Var
  Head : PLinkedList;

Procedure InitList;
Begin
  New (Head);
  Head^.llNext := Nil;
End;

Procedure AddToList (aNodeInfo : TInfo);
Var
  p : PLinkedList;

Begin
  New (P);
  p^.llData := aNodeInfo;
  p^.llNext := HEAD^.llNext;
  Head^.llNext := p
End;

Dann funktioniert der Löschcode auch.

[Stillmatic]

Das klappt bei mir alles nicht so wie ich will!
Ich bekomme immer wieder Fehler " Access Violation at Adress"!!

Also ich habe meine Typdeklaration so!

Delphi-Quellcode:

type
  PDaten      = ^TDaten;
  TDaten      = record
                  info : TEinDatensatz;       // Daten
                  next : PDaten;             // nächster
                end;

TEinDatensatz ist so deklariert

Delphi-Quellcode:

TEinDatensatz = record
               ID      : TID;        
               Title   : TTitle;     
             end;

Nun hab ich mir eine Variable angelegt

Delphi-Quellcode:

Liste: PDaten;

Nun muss ich 2 Proceduren schreiben!
Die eine gibt den kompletten speicher wieder frei(Procedure)....
und die andere schreibt ein Element vom typ TEinDatensatz in die Liste(Procedure--> auf Knopfdruck)!
Das heißt das wenn auf einen Button gedrückt wird öffnet sich ein OpenDialog wo man eine Datei auswählen kann welche dann in die Liste geschrieben wird.Wenn man eine Datei angefügt hat und eine nächste reinschreiben möchte darf das alte natürlich nicht überschrieben werden??

:gruebel:

Nur ich weiß nicht wie man das ganze jetzt umsetzt ohne diese lästigen Fehler immer zu bekommen??
:?: