Welche
AV wird denn da ausgelößt?
Doch nicht etwa irgendwas mit "Zugriff an Adresse 000000
xx"?
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
...