Access Violations durch TADODataSet?

[Bernhard Geyer]

Zitat von Peter1981:

Delphi-Quellcode:

  ...

  Self.AddToList(MyList, MyResult);
  ...
  FreeAndNil(MyResult);

Du speicherst dir eine Referenz die du dann wegschmeißt. Wie soll das klappen

[Peter1981]

Die beiden Parameter übergebe ich const an eine Unterfunktion

procedure AddToList(const MyList: TMyListType;const MyResult: TADODataset); Hierdrin versteckt sich dann einfach nur der übliche Ablauf, Objekt erstellen, Werte aus MyResult in das Objekt übertragen, Objekt in Liste einfügen.

Aber wie gesagt, die Probleme mit den Access Violations fangen bereits nach MyResult.Open im zweiten Funktionsaufruf an. Und sie betreffen die Liste, die im ersten Funktionsaufruf benutzt wurde

[Bernhard Geyer]

Du mussst mehr Quellcode liefern. So wird das nix.

[Peter1981]

Zitat von Bernhard Geyer:

Du musst mehr Quellcode liefern. So wird das nix.

Ich wüsste jetzt aber beim besten Willen nicht, welcher Codeteil hierfür wirklich hilfreich wäre. Ich habe direkt vor TADODataSet.Create ein ShowMessage gesetzt, bei dem ich auf das erste Objekt in Liste1 aus Aufruf 1 zugreife ---> funktioniert.

Das exakt gleiche ShowMessage habe ich dann direkt nach MyResult.Open nochmal platziert, hier erzeugt es sofort eine Access Violation.

[DeddyH]

Wie sieht AddToList denn aus? Werden dort neue Objekte erstellt und die Werte kopiert oder hantierst Du da mit den Originalreferenzen? Es scheint das Letztere zu sein.

[Peter1981]

Zitat von DeddyH:

Wie sieht AddToList denn aus? Werden dort neue Objekte erstellt und die Werte kopiert oder hantierst Du da mit den Originalreferenzen? Es scheint das Letztere zu sein.

Da drin werden Objekte erstellt, und deren Eigenschaften werden mit
NewObject.ID := MyResult.FieldByName('ID').AsInteger; usw. gefüllt, anschließend werden sie per ObjectList.Add in die entsprechende Liste eingetragen

Und mit OpenDatabase bzw CloseDatabase setze ich eigentlich nur das Connected-Property der ADOConnection auf true oder false.

[DeddyH]

Wird die Liste bzw. die enthaltenen Objekte irgendwo zwischendurch freigegeben? Ansonsten poste doch einfach mal den Code von AddToList, vielleicht ist da ja ein kleines Fehlerchen drin.

[shmia]

Übrigens:

Delphi-Quellcode:

// Parameter MyResult hat einen unnötig konkreten Datentyp
procedure AddToList(const MyList: TMyListType;const MyResult: TADODataset); 

// TDataset reicht um Felder auszulesen
procedure AddToList(const MyList: TMyListType;const MyResult: TDataset);

[Bernhard Geyer]

was macht eigentlich CloseDatabase?