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.