wie geht man richtig mit try..except um?

[ele]

Hallo,

Insbesondere bei Exceptions mit ADO: Die TADOConnection-Klasse besitzt eine Eigenschaft Errors, welche mehrere Elemente der Klasse Error mit der genauen Fehlerbeschreibung enthalten kann. Man kann die Exception mit dem Text dieser Fehlermeldungen anreichern:

Delphi-Quellcode:

var
  Err: ADODB.Error;
  i: Integer;

begin
  try
    ADOQuery1.Open();
  except
    On E: Exception do
    begin
      for i := 0 to ADOQuery1.Connection.Errors.Count - 1 do
      begin
        Err := ADOQuery1.Connection.Errors.Item[i];
        E.Message := E.Message + #13#10 + Format('(%d): %s', [Err.NativeError, Err.Description]); 
      end;   
    end;
  end;
end;