Invalid Pointer TObjectList

[bl3nder]

Hi Leute,

Ich checks einfach nicht wo der Fehler liegen kann:

Ich möchte meine Objekte und Listen alle freigeben, weil sich das Programm sonst extrem aufbläht.

Hier ein Auszug meines Codes:

Delphi-Quellcode:

    FList := TObjectList.Create;
    FCSearch := Model.TComputerSearch.Create;
    FMyCCriteria := Model.TComputerAttributes.Create;

    //...


    FList := FCSearch.DBSearch('vague',FMyCCriteria); // FList wird mit "TComputer"-Objekten befüllt

    I := 0;
    while (I<FList.Count-1) do
      begin
        FMyComputer := Model.TComputer.Create;
        FMyComputer := FList[I] as Model.TComputer;

        // Fill the Grid with the information of the FMyComputer object
        Grid.Cells[0,Grid.RowCount-1] := IntToStr(FMyComputer.GetAttributes.GetID);
        Grid.Cells[1,Grid.RowCount-1] := FMyComputer.GetAttributes.GetName;
        Grid.Cells[2,Grid.RowCount-1] := FMyComputer.GetAttributes.GetComment;
        Grid.Cells[3,Grid.RowCount-1] := FMyComputer.GetAttributes.GetModel;

        Grid.RowCount := Grid.RowCount +1;

        FMyComputer.Free;
        Inc(I);
      end;

  FList.Clear; // UNGÜLTIGE ZEIGEROPERATION 
  FList.Free;  // UNGÜLTIGE ZEIGEROPERATION 

  FCSearch.Free;
  FMyCCriteria.Free;

Das Programm läuft trotz des Fehlers aber den Fehler möchte ich natürlich wegbekommen

Weiß einer Rat ?

[Deep-Sea]

TObjectList gibt alle Objekte die es enthält selber frei - außer man instantiiert es mit AOwnsObjects = False

[edit]Parametername korrigiert.[/edit]

[bl3nder]

Ok Vielen Dank, wusste ich nicht.

[Apollonius]

FMyCompuer musst du auch nicht erzeugen, bevor du auf die Liste zugreifst. Sonst hast du ein Speicherleck.

[bl3nder]

Hmm ok danke schonmal guter Anfang die Lecks zu finden. Ich weiß sonst echt nicht mehr wo die 3KB pro DB abfrage herkommen :/

[Deep-Sea]

Zitat von bl3nder:

Hmm ok danke schonmal guter Anfang die Lecks zu finden. Ich weiß sonst echt nicht mehr wo die 3KB pro DB abfrage herkommen :/

Autsch, na dann mal viel Glück beim Suchen ...
PS: Try-finally nutzen

[Neutral General]

Zitat von Apollonius:

FMyCompuer musst du auch nicht erzeugen, bevor du auf die Liste zugreifst. Sonst hast du ein Speicherleck.

Das Gleiche gilt für FList

[bl3nder]

Zitat von Neutral General:

Zitat von Apollonius:

FMyCompuer musst du auch nicht erzeugen, bevor du auf die Liste zugreifst. Sonst hast du ein Speicherleck.

Das Gleiche gilt für FList

Kann ich nicht bestätigen. Habe durch das Weglassen von

FList := TObjectList.Create; eine Adressverletzung bekommen... ?

[Neutral General]

Hi,

Delphi-Quellcode:

FList := TObjectList.Create;
FCSearch := Model.TComputerSearch.Create;
FMyCCriteria := Model.TComputerAttributes.Create;

  //... Sollte hier zwischen nicht mit FList gearbeitet werden dann ist obiges Create überflüssig und erzeugt ein Speicherleck
  // WENN hier mit FList gerarbeitet wird, dann muss es aber vor der Zeile hier unten wieder freigegeben werden.
  // Sonst gibts ebenfalls ein Speicherleck!

FList := FCSearch.DBSearch('vague',FMyCCriteria); // FList wird mit "TComputer"-Objekten befüllt

[Deep-Sea]

Zitat von bl3nder:

Habe durch das Weglassen von

FList := TObjectList.Create; eine Adressverletzung bekommen... ?

Vlt. weil du zwischen "FList := TObjectList.Create;" und "FList := FCSearch.DBSearch('vague',FMyCCriteria);" auf FList zugreifst?! Sry, wir kennen deinen Code ya nicht