ein item einer verketteten liste hinzufügen

[Pseudemys Nelsoni]

hoi,

ich versuche mit folgendem ein item in meine verkettete liste hinzuzufügen:

Delphi-Quellcode:

procedure TServer.ClientConnect(Sender: TObject; ASocket: TCustomWinSocket);
var
  Temp: PUserItem;
  User: PUserItem;
begin
  New(User);
  User^.Socket := ASocket;
  if FUserNode = nil then
    FUserNode := User
  else
  begin
    Temp := FUserNode;
    while (Temp^.next <> nil) do
      Temp := Temp^.next;
    Temp^.next := User;
  end;
end;

FUserNode ist der anker der liste. "User" das neue item.

nun (ich weiss nicht ob das so ist wenn bereits ein item in der liste ist oder wenn es das erste ist) bekomme ich bei meiner while schleife eine access violation...

ist an ihr irgendwas falsch? ich gehe doch nur durch bis zum letzten item und füge das neue an... bzw versuch ich das

[SirThornberry]

Ist es beabsichtigt das du mit der Variablen "Temp" im Speicher von FUserNode rumänderst? Und warum nimmst du nicht einfach TList oder leitest davon ab, dann musst du das mit dem "Next" etc. nicht mehr machen, man muss das rad ja nicht jedes mal neu erfinden.

[Chewie]

Zitat:

Zitat von SirThornberry

Und warum nimmst du nicht einfach TList oder leitest davon ab, dann musst du das mit dem "Next" etc. nicht mehr machen, man muss das rad ja nicht jedes mal neu erfinden.

Zum was-weiß-ich-wievielten Mal: TList ist keine verkettete Liste! :roll:

[Pseudemys Nelsoni]

Zitat:

Ist es beabsichtigt das du mit der Variablen "Temp" im Speicher von FUserNode rumänderst?

jo, das ist die variable mit der ich mich von item zu item hangel

[Hansa]

Wie ist denn PUserItem deklariert ? Was ist FuserNode ? Und die Glaskugel sagt mir gerade, daß mit dem Temp und User irgendwas nicht stimmt, sie könne ohne Deklaration aber auch nichts damit anfangen. :mrgreen:

[Pseudemys Nelsoni]

wenn man weiss was verkettete listen sind, dann weiss man auch wie der typ PUserItem aussehen könnte :P :mrgreen:

Delphi-Quellcode:

PUserItem = ^TUserItem;

TUserItem = record
  Socket: TCustomWinSocket;
  Next: PUserItem;
end;

[Hansa]

Zitat:

Zitat von Pseudemys Nelsoni

könnte

Ja, das ist schon ein Unterschied zu "kann" und "weiß es". :lol: Und wenn du dich schickst, dann kriegst du ein Beispiel einer einfach verketteten Liste. :mrgreen:

[Pseudemys Nelsoni]

:mrgreen:


habs aber nun raus, ich musste beim erzeugen eines neues items den next zeiger auf NIL setzen, sollte das standardmässig nicht schon so sein?

[Hansa]

Zitat:

Zitat von Pseudemys Nelsoni

...sollte das standardmässig nicht schon so sein?

Nein. Trotzdem gut, Arbeit gespart, obwohl das Ding dann immer noch seltsam aussieht.. :lol:

[Pseudemys Nelsoni]

heisst das das wenn ich einen record habe der 50 membervariablen hat ich die ALLE initialisieren muss? oder reicht ein FillChar() ?