ZEIGER ! Eine Zeigerliste einer anderen anfügen.

[Nillen]

Das Prob :

Ich habe eine Zeigerliste mit sehr vielen Werten.
Nun möchte ich genau dieser vorhandenen Kette eine andere hinten ran hängen!

Ist die möglich? Am besten so einfach wie möglich !

Dankesehr ; P

[Aenogym]

hi,

also, wenn ich dich richtig verstanden habe, willst du folgendes?

Delphi-Quellcode:

var liste1, liste2: Tlist;
    i: integer;
begin
  liste1 := TList.create;
  liste2 := TList.Create;

  for i:=0 to 99 do
    liste1.add(irgendeinPointer);

  for i:=0 to 99 do
    liste2.add(irgendeinPointer);

  liste1.add(liste2);
end;

so in etwa... oder habe ich dich gänzlich falsch verstanden?

Aenogym

[Hansa]

Ob das Beispiel was nützt ? Du mußt den End-Zeiger wieder umsetzen. 8) Also den Anfang der 2. Liste an das Ende der ersten setzen.

[Nillen]

... Ja ne das Problem is auch das ich kein TList verwenden darf.

dh. ich muss meine zeiger Verknüpfungen komplett selber proggen !

Und dann kommt halt dieses Prob zustande :/

[Hansa]

TList ist kein Zeiger, keine Liste oder sonst was. 8)

[Christian Seehase]

Moin Nillen,

dann zeig' doch mal die Deklaration Deiner Liste.

[Nillen]

Delphi-Quellcode:

    TPointerr = ^TBild;

    TBild = record
              DateiName : String;
              Titel     : String;
              Next      : TPointerr;
            end;

Das ist der Aufbau des Zeigers !

Ehm un zu der Aussage TList sei kein Zeiger keine Liste oder sonstwas ...
Ne, das stimmt wohl es ist eine Liste von Zeigern. (bzw. wird dazu genutzt).

Ich will auch wirklich nicht gegenanstänkern, aber es geht nur darum, das wir die einzelnen Elemente selber verknüpfen sollen !

So z.b.

Delphi-Quellcode:

  
   
  First,Second : TPointerr;
  First := newPointer();
  First^.DateiName := 'was weiss ich 1';
  First^.Titel := 'auch sowas 1';
  Second := newPointer();
  Second^.DateiName := 'was weiss ich 2';
  Second^.Titel := 'auch sowas 2';
  First.Next := Second;

Hoffe das is richtig !

Naja Leutz ich geh ma in die Haia ... vielen Dank bis jetzt und ev. bis morgen ; )

[Hansa]

was ist newPointer ?? und dann fehlt noch das new, sofern das nicht da drin steckt. Von dispose ist nichts zu sehen, aber das kommt später. 8)

[BluesKid]

Moin moin

is jetzt einfach mal ins Blaue:

Wahrscheinlich hast du doch zwei Variablen, die auf den Anfang der jeweiligen verketteten Liste Zeigen.

Delphi-Quellcode:

var Anfang1, Anfang2 : TPointerr //<-- der Anfang der Listen

Die werden (so vermute ich mal) irgendwo in deinem Programm initialisiert... (????)

Dann muss du doch nur die Liste, an die angehängt werden soll bis zum Ende durchlaufen:

Delphi-Quellcode:

.
.
.

var hilfsZeig : TPointerr

begin

  hilfsZeig := Anfang1;

  while hilfsZeig^.next <> nil do
    hilfZeig := hilfZeig^.next;

und dann nur noch im Feld next den Anfang der zweiten Liste einsetzen:

Delphi-Quellcode:

  hilfsZeig^.next := Anfang2;

end;

Dann Zeigt jetzt Anfang1 auf eine Verkette Liste mit allen Elementen aus beiden Listen



schönen Gruß
Sam