Zeigerlisten erstellen, speichern und laden

[kompi19]

Hallo zusammen...

Ich scheitere gerade an dem oben genannten Thema. Unser Info-Lehrer hat uns das Thema gegeben und gesagt ja macht mal...
Habe schon etliche Tutorials gelesen, aber trotzdem ist mir die ganze Thematik noch nicht hundert Prozent klar. Finde das alles an sich auch ziemlich abstrakt.


Das sind hier erstmal die Typ- und Variablendeklarationen.

Delphi-Quellcode:

type
  PKnoten = ^TKnoten;
  TKnoten = Record
             Nr : Integer;
             Inhalt : String;
             Next : PKnoten;
            end;

var
  Root, Knoten : PKnoten;
  Datei : Textfile;
  wort: string;
  NeuerKnoten:Pknoten;
  i:integer;

Knoten ist jetzt ein Zeiger, der auf das Record zeigt, stimmt das? Könnte mir das mal jemand bitte genau erklären?


Das ist die Lade-Prozedur.

Delphi-Quellcode:

 Assignfile(Datei,'daten.dat');
 {$I-}
 Reset(Datei);
 {$I-}

 if IORESULT <> 0 then
  begin
   Showmessage('Datei konnte nicht gefunden werden');
   exit;
  end;
 i:=0;

 While not EOF(Datei) do
  begin
   Readln(Datei,wort);
   New(neuerKnoten);
   With Knoten^ do
    begin
     Next:=NeuerKnoten;
     Inhalt:=wort;
     Nr:=i;
    end;
   Knoten:=NeuerKnoten;
   Knoten^.next:=nil;
   inc(i);
  end;
 Closefile(Datei);
 Knoten:=Root;
 Anzeige();

Hier wäre es auch schön wenn mir das vllt mal jemand zeilenweise erklären kann, was da genau passiert.

Und wie müsste das Speichern einer Liste dann aussehen? Wenn ich also erst eine Liste im Ram erstelle und daraus dann speichere?


DAnke schon mal.

[DeddyH]

Hast Du auch das Tutorial hier aus der DP gelesen? Besser könnte ich es nämlich auch nicht erklären ;)
http://www.delphipraxis.net/internal...t.php?t=132884

P.S.: Ändere den Typ innerhalb des Records mal von String auf Shortstring, sonst hast Du später Kummer.