Kann "Clear" Fehler auslösen?

[Pseudemys Nelsoni]

Moin,

folgendes:

Delphi-Quellcode:

destructor TChannels.Destroy;
begin
  //FChannelList.Clear;
  inherited;
end;

Wenn ich hier "FChannelList.Clear;" nicht auskommentiere, dann bekomme ich beim Beenden meines Programms eine AV, wenn ich selbiges aber tue, funktioniert alles. Wie kann das sein? In welchem Fall kann Clear eine AV auslösen? FChannelList ist vom Typ "TObjectList". (Objekt ist kreiert!)

[Luckie]

Wiord eventuell nach dem Zerstören von TChannesl noch auf Items der Liste zugegriffen?

[KrasserChecker]

Schwer zu sagen mit vier Zeilen Code.
Was mir als erstes einfällt:
Die Objektliste enthält mindestens 1 Objekt, welches bereits freigegeben wurde. Da die Objektliste bei einem "Clear" standardmäßig alle enthaltenen Objekte freigibt würde das die AV erklären.

Was mir noch einfällt:
Ist das Feld "FChannelList" in "Create" von "TChannels" erzeugt worden? Wenn ja solltest du in Destruktor nicht "FChannelList.Clear" sondern "FChannelList.Free" aufrufen.

[Pseudemys Nelsoni]

Moin Luckie,

theoretisch müsste es ja so sein, sonst könnte ja kein Fehler kommen, aber dem ist nicht so, beim Beenden passiert nichtsmehr.
Das komische ist auch, das ich mich entscheiden kann, was ich auskommentieren möchte um keine av zu bekommen und zwar entweder:

Delphi-Quellcode:

destructor TChannels.Destroy;
begin
  //FChannelList.Clear;
  inherited;
end;

oder innerhalb im OnRead eines ClientSockets:

Delphi-Quellcode:

      if Command = 'JOIN' then
      begin
        if CompareText(FNickname, User.FNickname) = 0 then
        begin
          //Channel := FChannels.NewChannel(Param(Params, 0));
          //if Assigned(FOnJoined) then
          //  FOnJoined(Self, Channel);
        end else

NewChannel sieht dabei so aus:

Delphi-Quellcode:

function TChannels.NewChannel(const Channel: string): TChannel;
begin
  Result := TChannel.Create;
  Result.FName := Channel;
  Result.FTopic := '';
  Result.FKey := '';
  Result.FLimit := 0;
  Result.FUserCount := 0;
  FChannelList.Add(Result);
end;

Daher wundert mich das, wenn ich eines der beiden Teile auskommentiere, gibts keine Fehler, sonst AV.
Und ich seh nicht was daran falsch sein könnte.

EDIT:

@KrasserChecker:

Eine Objektliste kann nil Objekte enthalten, der aufruf von Clear führt dabei aber nicht zu einer AV, da sie das ganz gut handlen kann bzw prüft ob ein Objekt bereits nil ist, oder nicht.

Edit4:

Zitat:

Was mir noch einfällt:
Ist das Feld "FChannelList" in "Create" von "TChannels" erzeugt worden? Wenn ja solltest du in Destruktor nicht "FChannelList.Clear" sondern "FChannelList.Free" aufrufen.

Jo, das stimmt, aber ich möchte in anderen Prozeduren später auch noch "Clear" aufrufen können, also muss das mit Clear auch irgendwie funktionieren oder?

Edit5:

Gerade getestet mit .Free - das löst auch einen Fehler aus. Ich glaube nicht das die Fehler an meinen auskommentierten Zeilen liegt. Wie ich sowas liebe, nun weiss ich nicht wo ich nach Fehlern suchen soll.

[Dani]

Zitat:

Zitat von Pseudemys Nelsoni

Eine Objektliste kann nil Objekte enthalten, der aufruf von Clear führt dabei aber nicht zu einer AV, da sie das ganz gut handlen kann bzw prüft ob ein Objekt breits nil ist, oder nicht.

Hi! Wie gibst du die TChannel Objekte frei? Hast du beim Erstellen der TObjectList den Parameter OwnsObjects auf true oder false gesetzt?

Wie KrasserChecker gesagt hat könnte es sein, dass du an anderer Stelle bereits einen TChannel mit Free() freigibst. Dadurch wird die Referenz in der TObjectList zwar ungültig, aber nicht nil. TObjectList.Clear() bzw. TObjectList.Free() würde bei OwnsObjects = true dann versuchen, das TChannel Objekt nochmal freizugeben ==> AV.

[KrasserChecker]

Zitat:

Jo, das stimmt, aber ich möchte in anderen Prozeduren später auch noch "Clear" aufrufen können, also muss das mit Clear auch irgendwie funktionieren oder?

Gehört das Feld "FChannelList" in "TChannels"? Wird es im Create erzeugt? Wenn ja solltest Du die Liste auch im .Free wieder freigeben. Ansonsten könnte es passieren, dass Du dir da ein Speicherleck einhandelst.

BTW: Warum willst Du auf die Liste zugreifen, nachdem Du das "TChannels"-Objekt freigegeben hast?

[Pseudemys Nelsoni]

Moin Dani,

ich setze den OwnsObjects-Parameter nicht, daher ist er automatisch true.
Wenn ich mein Programm starte, wird folgendes getan:

Delphi-Quellcode:

constructor TChannels.Create;
begin
  inherited;
  FChannelList := TObjectList.Create;
end;

Dann wenn ich mit dem Server verbunden bin und einen Channel betreten hab:

Delphi-Quellcode:

      if Command = 'JOIN' then
      begin
        if CompareText(FNickname, User.FNickname) = 0 then //wenn ich joine(dieser teil wird ausgeführt)
        begin
          Channel := FChannels.NewChannel(Param(Params, 0));
          if Assigned(FOnJoined) then
            FOnJoined(Self, Channel);
        end else //wenn jemand anderes joint
        begin
          Channel := FChannels.ChannelByName(Param(Params, 0));
          Channel.FUsers.NewUser(User.FNickname);
          if Assigned(FOnJoin) then
            FOnJoin(Self, User, Channel);
        end;
      end else

Dann schliesse ich das Programm per "X"-Button und das wird noch ausgeführt:

Delphi-Quellcode:

destructor TChannels.Destroy;
begin
  FChannelList.Free;
  inherited;
end;

Einen Channel vorher freigeben tu ich nicht :(



EDIT:

@KrasserChecker

Zitat:

Gehört das Feld "FChannelList" in "TChannels"? Wird es im Create erzeugt? Wenn ja solltest Du die Liste auch im .Free wieder freigeben. Ansonsten könnte es passieren, dass Du dir da ein Speicherleck einhandelst.

Jup, das Feld gehört darein, aber da .Free einen Fehler auslöste, hab ich geguckt ob .Clear auch einen auslöst - dem war ja auch so.

Zitat:

BTW: Warum willst Du auf die Liste zugreifen, nachdem Du das "TChannels"-Objekt freigegeben hast?

Hm, möchte ich eigentlich nicht, wo tu ich das?