einfach verkettete Liste

**malibu85**

Hallo, sorry dass ich an einem Tag wie heute mit Listen nerven muss

ich habe versucht eine Liste zu programieren, das Prinzip habe ich verstanden aber das Programm und ich snd uns da nicht ganz einig

ich will mal kurz etwas aus dem Quelltext erklären.

Für die Verkettung sorgt der Zeiger t_zeiger und für di listninhalte habe ich t_inhalt erzeugt

markieren

Delphi-Quellcode:

			                      TYPE t_Zeiger = ^t_inhalt;

                      t_inhalt = Record

                      inhalt   :string;

                      Next     :t_Zeiger;

                      Position :integer;

                      End;

ich habe außerdem so eine Art Lesekopf erzeugt. Wer es vielleicht aus Turingmaschinen kennt. Dieser Kopf besteht aus

(Kopf->steht auf dem ersten Element,

Aktuell->steht immer auf dem Aktuellen Element und kann verschoben werden.

Ende-> Steht immer auf dem letzten Element;

markieren

Delphi-Quellcode:

			  Kopf          :t_Zeiger;

  Aktuell       :t_Zeiger;

  Ende          :t_Zeiger ;

Am Anfang des Quelltextes habe ich ein Haufen Ausgabeprozeduren sowie eine leere Liste erzeugt.Was aber nicht so wichtig ist. Es geht also erst so richtig los, sobald man auf Button 1 klickt. Das Programm prüft ob der Kopf leer istif (Kopf=NIL) then . Da dieser leer ist, wird ein Listenfeld (akt) erzeugt. Da akt ein Zeiger ist, kann man in dieses Listenfeld mit den folgenden befehlen Werte zuweisen

markieren

Delphi-Quellcode:

			           akt^.Next    :=NIL;

           akt^.inhalt  :='Das ist das erste Leisenelement';

           akt^.Position:=1;

wenn jedoch schon ein Listenelement vorhanden ist, springt das Programm in die Else- schleife. Zuvor hatte ich gesagt das der Zeiger, der jedes Element mit seinem nachfolger verknüpfe soll, also akt^.Next :=NIL; ins leere zeigen soll. In der Else-Anweisung wird dieser Zeiger nicht mehr ins leere zeigen (NIL) sondern auf den Lesekopf Aktuell...er könnte auch auf den Lesekopf->Kopf oder auf den Lesekopf->Ende stehen aber Aktuell soll hier nur bewegt werden.

Genauer gesagt soll dieser Wert nicht nur auf Aktuell zeigen sondern auf den Listeninhalt von Aktuell nämlich "next"
Also Zeigt das Listenfeld von akt (dem 1.Listenfeld) auf ein ein mögliches neues Feld wobei es wiederum auf einen einen Zeiger zeigt, der wiederum wieder auf ein Zeiger zeigt (next) um das nicht ins endliche auszulagern wird gleich danach dem dem Zeiger wieder das Listenfeld akt zugeordnet.

markieren

Delphi-Quellcode:

			     
akt^.next:=Aktuell^.next;

Aktuell^.Next:=Akt;

Wenn also zwei mal auf dem Button geklickt wurde, müsste es meiner Meinung nach zwei Listenfelder geben,welche mit der variablen akt editiert werden können.Wenn man nun noch weitere mal auf den Butten 2 klickt müsste das Programm immer weitere Listeneinträge erzeugen, denn weil Kopf nicht mehr NIL ist springt das Programm gleich in die else anweisung. Da jedes Listenelement, das Zeigerelement akt^.next kann diesem Element auch immer wieder der Wert Aktuell1.next zugeordnet werden.

Mit den Prozeduren am Anfang habe ich die Ausgabe gemacht. Der Lesekopf besteht aus drei Teilen also habe ich drei Ausgaben erzeugt.

markieren

Delphi-Quellcode:

			             akt^.next:=Aktuell^.next;

             Aktuell^.Next:=Akt;

             inc(akt^.position);

             p_Ausgabe_Kopf(Kopf^);

             p_Ausgabe_Aktuell(Aktuell^);

             p_Ausgabe_Ende(Ende^);

Das Programm funktoniert aber nicht so wie ich mir das gedacht habe. Denn irgendwie habe ich ein denkfehler. Ich habe zum Test in jedem Listenfeld eine ordinale Position eingefügt, welche sich bei jedem erzeugten Listenfeld incrementieren soll. Wenn man das Programm ausführt dann sieht mann, dass sich die Verkettung nicht im Lesekopf ->Aktuell fortsetzt sondern in allen drei. d.h ich bin mir jetzt gar nicht mehr so sicher ob jedes mal ein neues listenfeld erzeugt wird oder einfach nur die Position um 1 erhöht wird ( inc(akt^.position) ) Also eine pseudoverkettung die allein die Ausgabe vorgaukelt aber gar nicht existiert.

Ich will ja eigentlich erreichen, dass nachdem genau ein Listenfeld erzeugt wurde und die Zeigervariablen Kopf,Aktuell,Ende auf eins stehen (weil janur ein Feld vorhanden ist) beim erzeugen eines zusätlichen Listenfelds sich hinter Kopf ein neues Listenfeld einfügt und sich nur für Aktuell und Ende die Position incrementiert. Warum geht das eigentlich nicht. Ich habe doch schließlich den pfad aktuell für die verkettung benutzt und nicht Kopf.

Vielleicht hat ja jemand lust, mir bei meinen Problem zu helfen..ich stelle im folgenden nochmal den kompletten Quellcode rein

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

                      TYPE t_Zeiger = ^t_inhalt;

                      t_inhalt = Record

                      inhalt   :string;

                      Next     :t_Zeiger;

                      Position :integer;

                      End;

var

  Form1: TForm1;

  Kopf          :t_Zeiger;

  Aktuell       :t_Zeiger;

  Ende          :t_Zeiger ;

implementation

{$R *.dfm}

procedure p_Ausgabe_Kopf (v_Kopf:t_inhalt);

begin

  with form1 do

  with v_Kopf    do

  begin

  label4.Caption:=IntToStr(position);

  end;

 end;

procedure p_Ausgabe_Aktuell (v_Aktuell:t_inhalt);

begin

  with form1 do

  with v_Aktuell    do

  begin

  label5.Caption:=IntToStr(position);

  end;

 end;

procedure p_Ausgabe_Ende (v_Ende:t_inhalt);

begin

  with form1 do

  with v_Ende    do

  begin

  label6.Caption:=IntToStr(position);

  end;

 end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Kopf       :=NIL;

Aktuell    :=NIL;

Ende       :=NIL;

label4.Caption:='leer';

label5.Caption:='leer';

label6.Caption:='leer';

end;

procedure TForm1.Button2Click(Sender: TObject);

     var akt  :t_Zeiger;

         vor  :t_zeiger;

         pos  :t_zeiger;

begin

       New(akt);

       if (Kopf=NIL) then

           begin

           Kopf         :=akt;

           Aktuell      :=akt;

           Ende         :=akt;

           akt^.Next    :=NIL;

           akt^.inhalt  :='Das ist das erste Leisenelement';

           akt^.Position:=1;

           p_Ausgabe_Kopf(kopf^);

           p_Ausgabe_Aktuell(Aktuell^);

           p_Ausgabe_Ende(Ende^);

           end

         else   //--------------------------------------------------------------

             begin

             akt^.next:=Aktuell^.next;

             Aktuell^.Next:=Akt;

             inc(akt^.position);

             p_Ausgabe_Kopf(Kopf^);

             p_Ausgabe_Aktuell(Aktuell^);

             p_Ausgabe_Ende(Ende^);

             end;

             akt^.inhalt:='ein listen Element';

             akt^.Position:=2;

             if (aktuell=ende) then

                 begin

                 ende:=akt;

                 aktuell:=akt;

                 end;

        end;

end.

einfach verkettete Liste

einfach verkettete Liste

Forumregeln