Erst mal folgender Code:
Delphi-Quellcode:
...
procedure TForm1.TButton_ConnectClick(Sender: TObject);
procedure Error(Error:EOleException);
begin
LException.Caption := 'EOleException';
//LHelpFile.Caption := Error.HelpFile;
//LSource.Caption := Error.Source;
//LErrorCode.Caption := Error.ErrorCode;
//LHelpContext.Caption := Error.HelpContext;
//LMessage.Caption := Error.Message;
end;
begin
TButton_Connect.Enabled := False;
TButton_Disconnect.Enabled := False;
try
SetConnectionString(TADOConnection_SQL);
TADOConnection_SQL.Open;
except
on EOleException do ERROR(EOleException);
TButton_Connect.Enabled := True;
TButton_Disconnect.Enabled := False;
end;
end;
...
Was soll das machen fragt sich bestimmt jeder
Es gibt ja ab und zu lustige Exceptions (da der Anwender zu plöd ist, oder der Programmierer zu plöd war), welche mit ner WindowsTypischen MessageBox quittiert werden
So ich bekomm das ja hin das keine Box erscheind, was ich ja net wirklich will
Wenn ich mir EOleException anschau, hat es Eigenschaften wie HelpFile, Source, ErrorCode, HelpContext und Message...
Wie komm ich an derren Inhalt ran, wenn solch eine
Exception ausgelöst wird? So wie ich es gemacht hab scheinbar net, da kommt immer
[Fehler] MainUnit.pas(95): Inkompatible Typen: 'EOleException' und 'Class reference'
Auch wenn ich die Eigenschaften im EceptBlock abfrag bekomm ich nur Fehler...
Hat da wer nen Tip? Irgendwas wie ich an die Werte rannkomm?
Dann wie sieht es mit meiner declarierten Procedure in der procedure aus? ist sowas verboten? funktionieren wird es wohl, meckert ja net rum ^^
MFG Keda