Exception wird nicht angezeigt

[Die Muhkuh]

Hi,

ich hab das Projekt ma an den mirage228 geschickt. Es ging keine Minute da hatte er die Lösung:

Delphi-Quellcode:

constructor TXML.Create(FileName: String; NodeName: String;
  CreateIfNotExists: Boolean);
var
  Temp: IXMLDocument;
begin
  FFileName := FileName;

  if CreateIfNotExists then
  begin
    if (not (FileExists(FFileName))) then
    begin
      TFileStream.Create(FFilename, fmCreate).Free;

      try
        with TStringList.Create do
        begin
          Add(Format('<%s>', [NodeName]));
          Add(Format('</%s>', [NodeName]));
          SaveToFile(FFilename);
          Free;
        end;
      except
        DoError('Fehler beim erstellen der Datei "%s"!', [FileName]);
      end;
    end;
  end;

  FXML := nil; // << Das hier hat gefehlt. Wenn man das weglässt, zeigt es die Exception NICHT an.

  try
    FXML := TXMLDocument.Create('G');
    FXML.LoadFromFile(FFileName);

    if (not (FXML.DocumentElement.NodeName = NodeName)) then
      DoError('Node "%s" nicht gefunden!', [NodeName]);
  except
    DoError('Datei "%s" konnte nicht geladen werden!' + #13#10 +
      'Bitte überprüfen Sie den Pfad!', [FFilename]);
  end;
end;