Error bei XML Speicherfreigabe

[vagtler]

Wäre es nicht hilfreich mal Deinen Code zu posten?

[Leo675]

Interface:
IXMLSchicht2_eintrag_listeType = interface(IXMLNodeCollection)

XML-Deklaration

Code:

TDateFromID_FN = class
  
  private
    fXML_DOC : TXMLDocument;
    fXML_S2Eintrag  : IXMLSchicht2_eintrag_listeType;

  public
  procedure SaveToFileXML(const aFileName : String ='');

    constructor Create; virtual;
    destructor Destroy; override;
    property XML : IXMLSchicht2_eintrag_listeType read fXML_S2Eintrag write fXML_S2Eintrag;

constructor TDateFromID_FN.Create;
  begin
    try
      slK2     := TStringList.Create;
      slVSK2   := TStringList.Create;
      slKZ2    := TStringList.Create;
      slE23    := TStringList.Create;
      slKInfo2 := TStringList.Create;
      slBInfo2 := TStringList.Create;

      fXML_DOC := TXMLDocument.Create(nil);
      fXML_S2Eintrag := Getschicht2_eintrag_liste(fXML_DOC);
      fXML_DOC.Active:= True;
      fXML_DOC.Version := '1.0';
      fXML_DOC.StandAlone  := 'yes';
      fXML_DOC.Encoding  := 'UTF-8';
    except
      ....
    end;
  end;

  destructor TDateFromID_FN.Destroy;
  begin    
    ....
    fXML_DOC.Active  := False;
    fXML_DOC.free;
  end;
  
procedure TDateFromID_FN.SaveToFileXML(const aFileName: String);
begin
  fXML_DOC.SaveToFile(aFileName);
end;

Funktion Aufruf

Code:

S2Daten:= TDateFromID_FN.Create;
S2Daten.SaveToFileXML('C:\temp\XML\S2_Test'+DateToStr(Now
      )+'.xml');
S2Daten.Free;

[mkinzler]

Wann gibst du die ganzen Stringlisten frei?

[Leo675]

Im destructor befor ich fXML_DOC auf inactive setze ist als .... bezeichnet beim exept im constructor ist das gleiche

[himitsu]

Verwende mal probehalber IXMLDocument statt dem TXMLDocument (also bei deiner Variable)
und laß' das .Free weg, bzw. ersetze es durch :=nil .

[Leo675]

Es hat geklappt! Danke!

[himitsu]

Du glaubst es vielleicht nicht, aber was glaubst du wie sich jemand freut, wenn er irgendwann mal das selbe Problem hat, tatsächlich die Suchfunktion benutzt, aber Keiner irgendwo die abschließende Lösung verraten hatte?

[Leo675]

Klar, allerdings habe ich nicht so ganz verstanden, ja um XML zu ertsellen benutze ich ein Interface-Classe, die ich mit Hilfe der Datenbindung aus ein XML-Shema erstellt habe. Mit

Code:

nil

lösche ich nur den Zeiger auf benutzte Speicher und gebe nicht den Speicher frei, wie wird im dem Fall den speicher freigegeben?