EOleException mit detailierten Informationen. AV???

[romber]

Mit diesem Beilspiel von shmia versuche ich mehr Informationen zu einer Exception abzurufen. Leider kommt es gleich in der ersten Zeile zur einer AV. Wie kann das denn sein?

Diese Zeile löst die AV aus:

Delphi-Quellcode:

e := cn.ConnectionObject.Errors;

[himitsu]

Welche AV wird denn da ausgelößt? :glaskugel:

Doch nicht etwa irgendwas mit "Zugriff an Adresse 000000xx"?
Wenn, dann wird wohl eines der Objekte nicht existieren.

Delphi-Quellcode:

function GetAllADOErrors(cn: TADOConnection):string;
var
  i : Integer;
  e : ADOInt.Errors;
begin
  if not Assigned(cr) then
    Raise Exception('TADOConnection does not exists');
  if not Assigned(cn.ConnectionObject) then
    Raise Exception('TADOConnection.ConnectionObject does not exists');
  e := cn.ConnectionObject.Errors;
  for i := 0 to e.Count-1 do 
...

[romber]

Vielen Dank für die schnelle Antwort!

Zitat:

Zitat von himitsu

Welche AV wird denn da ausgelößt? :glaskugel:

Doch nicht etwa irgendwas mit "Zugriff an Adresse 000000xx"?

Genau diese Meldung. Ich gebe die ADO-Komponente aber nirgendwo frei.