Hi,
Delphi-Quellcode:
uses
xmldom, XMLIntf, msxmldom, XMLDoc, SysUtils;
type
EXMLException =
Exception;
...
// Eine Procedure
try
FXML.LoadFromFile(FFileName);
// Hier passiert ein Fehler
except
DoError('
Datei "%s" konnte nicht geladen werden!' + #13#10 +
'
Bitte überprüfen Sie den Pfad!', [FFilename]);
end;
...
procedure TXML.DoError(M:
String;
const Args:
array of const);
begin
EXMLException.Create(Format(M, Args));
end;
Eigentlich sollte doch die
Exception angezeigt werden, aber die kommt nicht. Es wird in den Except-Block gesprungen, dann steht der Debugger auf "DoError" und überspingt das dann einfach, wenn ich wieder F7 drück.
Der Code steht in einer
Unit (ohne eine
DFM).
Danke schon ma im Vorraus
