Moin moin
is jetzt einfach mal ins Blaue:
Wahrscheinlich hast du doch zwei Variablen, die auf den Anfang der jeweiligen verketteten Liste Zeigen.
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