Form close - EINvalidPointer

[Klaus01]

.. was passiert denn, wenn eine Mitarbeiter deaktiviert wird?
Entfernst Du dann das Frame aus der Liste - oder beendest Du das Frame nur?

Grüße
Klaus

[Int3g3r]

Zitat von Klaus01:

.. was passiert denn, wenn eine Mitarbeiter deaktiviert wird?
Entfernst Du dann das Frame aus der Liste - oder beendest Du das Frame nur?

Grüße
Klaus

Nein, ich werde die komplette TObjecList freigeben und neu aufbauen, somit auch alle Frames freigeben/neu erzeugen. Wenn ein Mitarbeiter deaktiviert wurde wird dieser bei der SQL abfrage nun nicht mehr in der Tabelle angezeigt. Anhand der anzahl der Tabelleneinträge werden mir die anzahl Frames erzeugt.

Code:

   qryMitarbeiter.Close;
   qryMitarbeiter.SQL.Text := 'select * from mitarbeiter where mitarbeiter.aktiv = 1';
   qryMitarbeiter.Open;

[hoika]

Hallo,

Zitat:

ich werde die komplette TObjecList freigeben

werde = Zukunft
oder machst du das bereits?

[haentschman]

Moin...

Zitat:

Also das Ziel bei einer TObjectList ist doch das die Items automatisch freigegeben werden wenn der owner auf true ist.

Diese Aussage ist falsch.
Zum Verständnis...Entweder die Objektliste oder der Owner gibt den Frame frei.

Delphi-Quellcode:

// 1. Variante
FrmPerson := TFrmPerson.Create(nil); // Owner hier auf nil
PersonList := TObjectList<TfrmPerson>.Create(True); // bleibt

// 2. Variante
FrmPerson := TFrmPerson.Create(self); // Owner bleibt 
PersonList := TObjectList<TfrmPerson>.Create(False); // heißt, daß die Liste ihre Objekte nicht selbst freigibt

Delphi-Quellcode:

PersonList := TObjectList<TfrmPerson>.Create(True);
PersonList.Free;

Erzeugen und freigeben der Liste bitte im FormCreate/FormDestroy. Da sind sie besser aufgehoben.

eine Bitte:
Keine globalen Variablen.

Delphi-Quellcode:

var
  PersonList : TObjectList<TfrmPerson>;

besser:

Delphi-Quellcode:

TfrmAnsicht = class(TForm)
private
 FPersonList : TObjectList<TfrmPerson>;

[Int3g3r]

Zitat:

Zum Verständnis...Entweder die Objektliste oder der Owner gibt den Frame frei.

Besten Dank für die Erklärung. Dies habe ich wohl falsch verstanden. Ich habe gedacht das der owner dann auf die TObjectList übertragen wird. Somit hatte ich 2 Owner.

Code:

// 1. Variante
FrmPerson := TFrmPerson.Create(nil); // Owner hier auf nil
PersonList := TObjectList<TfrmPerson>.Create(True); // bleibt

Habe ich nun wie in deinem beispiel getestet. Hat leider nichts gebracht der PointerFehler besteht weiterhin.

Im Frame habe ich noch Arrays[0..30] of Shortint; diese müssen ja nicht spezifisch freigegeben werden, richtig ?

Code:

TfrmAnsicht = class(TForm)
private
 FPersonList : TObjectList<TfrmPerson>;

Hmm... Ich möchte sehen welche Units ich Manuell eingebunden Habe.
Wenn ich dies wie in deinem Beispiel mache bin ich gezwungen die frame_Person in der ersten Uses einzutragen wo alle system units eingebunden werden.

Wenn ich diese global deklariere kann ich dies nach der Implementation machen und sehe somit auf anhib welche units ich eingebunden habe. Oder gibt es eine möglichkeit diese als private zu deklarieren nach der Implementation ?

Ah ja bevor ichs vergesse, Vielen Dank für die Hilfe!

[haentschman]

Zitat:

In deinem Fall mußt Du also unbedingt die TObjectlist löschen

...wieso? Ich verwalte einige der Forms in Objektlisten. (Owner = nil) Wenn man sich an die Regeln hällt, ist es kein Problem. Wichtig, die Liste im FormCreate/FormDestroy anlegen und zerstören.

[Int3g3r]

Endlich !!

Habs herausgefunden!

Delphi-Quellcode:

   SetLength(MitarbeiterNamen, anzAktiveMitarbeiter-1);
   qryMitarbeiter.First;
   while not qryMitarbeiter.Eof do
      begin
         MitarbeiterNamen[i] := (qryMitarbeiterNAME.AsString + ' ' + qryMitarbeiterVORNAME.AsString);
         inc(i);
         qryMitarbeiter.Next;
      end;

Delphi-Quellcode:

 // KORREKT
SetLength(MitarbeiterNamen, anzAktiveMitarbeiter)

Kann mir jemand erklären warum ich hier keine exception bekommen habe ?
Er versucht einen String in den MitarbeiterNamen[i] einzutragen. Das Array war zu klein mit dem -1. Da hätte er doch motzen müssen wenn das Array zu klein ist und somit nicht über den index zugreifen kann.

Mfg Int3g3r

[Neutral General]

Zitat von Int3g3r:

Kann mir jemand erklären warum ich hier keine exception bekommen habe ?
Er versucht einen String in den MitarbeiterNamen[i] einzutragen. Das Array war zu klein mit dem -1. Da hätte er doch motzen müssen wenn das Array zu klein ist und somit nichts in den index eintragen kann.

Weil Speicher Speicher ist. Und solange der Speicher von Mitarbeiter[i] verfügbar und schreibbar ist, ist alles "okay".
Okay in der Hinsicht, dass man Daten darein schreiben kann. Das Problem ist nur, dass du damit wahrscheinlich Speicher eines andere Objekts o.ä. überschreibst weswegen die Chance besteht, dass du später ggf. "unerklärbare" Überraschungs-Exceptions bekommst an Stellen die eigentlich komplett unproblematisch sind, weil du dir vorher den Speicher zerschossen hast.

[peterbelow]

Zitat von Int3g3r:

Endlich !!

Habs herausgefunden!

Delphi-Quellcode:

   SetLength(MitarbeiterNamen, anzAktiveMitarbeiter-1);
   qryMitarbeiter.First;
   while not qryMitarbeiter.Eof do
      begin
         MitarbeiterNamen[i] := (qryMitarbeiterNAME.AsString + ' ' + qryMitarbeiterVORNAME.AsString);
         inc(i);
         qryMitarbeiter.Next;
      end;

Delphi-Quellcode:

 // KORREKT
SetLength(MitarbeiterNamen, anzAktiveMitarbeiter)

Kann mir jemand erklären warum ich hier keine exception bekommen habe ?
Er versucht einen String in den MitarbeiterNamen[i] einzutragen. Das Array war zu klein mit dem -1. Da hätte er doch motzen müssen wenn das Array zu klein ist und somit nicht über den index zugreifen kann.

Mfg Int3g3r

Hast Du range-checking aktiviert, zumindest für den Debug-Build?