Objekt an verketteter Liste hinzufügen.

[Pseudemys Nelsoni]

Moin,

ich versuche ein Objekt einer verketteten Liste so anzuhängen:

Delphi-Quellcode:

function TChannels.NewChannel(const ChannelName: string): TChannel;
var
  Channel: TChannel;
begin
  Result := TChannel.Create;
  if FChannelNode = nil then
    FChannelNode := Result
  else
  begin
    Channel := FChannelNode;
    while Channel.FNextChannel <> nil do
      Channel := Channel.FNextChannel;
    Channel.FNextChannel := Result;
    Result.FName := ChannelName;
  end;
end;

Nur gibts dort eine AV und der Pfeil zeigt auf das erste "if".... Weiss jemand was da falsch sein soll? Scheint mir alles richtig

[Phoenix]

Was steht denn in FChannelNode am Anfang drin? Bist Du überhaupt auf dem richtigen Objekt?
Vielleicht ist FChannelNode ja gar nicht nil, verweist aber auf einen Bereich im Speicher der nicht mehr allokiert ist? Das wäre jetzt so der erste Punkt wo ich weitersuchen würde.

[maximov]

Ich würde eher sagen, dass der fehler eine zeile höher liegt im constructor des channels:

Delphi-Quellcode:

Result := TChannel.Create; <-- da

denn delphi ist manchmal mental schon ein bisschen weiter als der code ;) ...Oder Self selbst ist ungültig.

[Phoenix]

Zitat:

Zitat von maximov

Oder Self selbst ist ungültig.

Stimmt, deswegen habe ich ja auch gefragt, ob er überhaupt auf dem richtigen Objekt arbeitet. ;-)

[Robert_G]

Der constructor scheint der einzige ort zu sein an dem es knallen kann.
Ich gehe einfach mal davon aus, dass Pseudo die Liste erzeugt hat, bevor er ihr Items anhängen will ;)

btw: Ich würde dir empfehlen Head und Tail zu pflegen. Wenn du für jedes Anfügen erst das Ende suchen musst... :shock:

[Pseudemys Nelsoni]

Moin Phoenix,

Zitat:

Was steht denn in FChannelNode am Anfang drin?

Nichts, d.h "nil". FChannelNode ist der Beginn der Kette.

Zitat:

Vielleicht ist FChannelNode ja gar nicht nil, verweist aber auf einen Bereich im Speicher der nicht mehr allokiert ist?

Nope, kann nicht sein, da FChannelNode 100% nil ist (ist als Feld im Objekt "TChannels").

Moin maximov,

Zitat:

Ich würde eher sagen, dass der fehler eine zeile höher liegt im constructor des channels:

? Der sieht doch goldrichtig aus. Das dürfte keine Probleme machen.

Zitat:

Oder Self selbst ist ungültig.

Daran lags, FChannels(Das Objekt der liste) war gar nicht erzeugt :oops: :mrgreen:


Danke allen^^

[Robert_G]

Zitat:

Zitat von Pseudemys Nelsoni

Zitat:

Oder Self selbst ist ungültig.

Daran lags, FChannels(Das Objekt der liste) war gar nicht erzeugt :oops: :mrgreen:

Schön... Endlich mal was mit dem ich dich beim nächsten Mal aufziehen kann. :mrgreen:

[DP-Maintenance]

Dieses Thema wurde von "alcaeus" von "Sonstige Fragen zu Delphi" nach "Object-Pascal / Delphi-Language" verschoben.
Ist ein Problem mit der Delphi-Language