try...except erkennt Exception nicht

[semo]

wenn du prüfen willst ob datei vorhanden,
werden bereits ausreichende validierungsfunktionen mitgeliefert:

Delphi-Quellcode:

  // prüfen ob XML-File vorhanden:
  if not xmlDoc.load(AFileName) then
  begin
    // prüfen ob XML-File "wohlgeformt" ist:
    If xmlDoc.parseerror.errorCode <> 0 then
    begin


      MessageDlg( Format('XML-Datei %s ist nicht wohlgeformt --> Abbruch'+#13#10+#13#10+
                  'Code:     %d' + #13#10 +
                  'Reason:   %s' + #13#10 +
                  'URL:      %s' + #13#10 +
                  'SrcText:  %s' + #13#10 +
                  'Line:     %d' + #13#10 +
                  'LinePos:  %d' + #13#10 +
                  'FilePos:  %d' + #13#10,
                  [AFileName,
                  xmlDoc.parseerror.Get_errorCode,
                  xmlDoc.parseerror.Get_reason(),
                  xmlDoc.parseerror.Get_url,
                  xmlDoc.parseerror.Get_srcText,
                  xmlDoc.parseerror.Get_line,
                  xmlDoc.parseerror.Get_linepos,
                  xmlDoc.parseerror.Get_filepos]),
                  mtWarning, [mbOK], 0);
      Exit;
    end else
    begin
      AddToMemo('XML-Datei nicht vorhanden!');
      exit;
    end;
  end else
    AddToMemo('XML-Datei erfolgreich geladen!');