Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi temporäre Interfaces sofort freigeben? (https://www.delphipraxis.net/145559-temporaere-interfaces-sofort-freigeben.html)

Alaitoc 4. Jan 2010 13:34

Re: temporäre Interfaces sofort freigeben?
 
Ah gut, ja das ist dann wirklich Pech...hm naja ich würds so machen denk ich:

Delphi-Quellcode:
procedure Test;
  var XML: IXMLDocument;
    Node: IXMLNode;

  begin
    XML := coDOMDocument60.Create;
    try
      XML.Version   := '1.0';
      XML.StandAlone := 'yes';
      XML.Encoding  := 'UTF-8';
      Node2 := XML.AddChild('xml');
      Node := XML.DocumentElement;
      for i := 0 to 9999 do
      begin
        Node2 := Node.AddChild(IntToStr(i));
      end;
    finally
      Node2 := nil;
      Node := nil;
      XML := nil;
    end;
  end;
Fänd ich zumindest übersichtlicher und da ich eh immer fast alles selbst freigebe ( auch Interfaces ) ^^ ....
Sollte doch effektiv auf das gleiche hinauslaufen oder ? :gruebel:
Ich muss mich umbedingt mehr mit sowas beschäftigen...

Edit: Ach und ganz wichtig von wegen msXML.DocumentElement.AddChild ! Law of Demeter Da gehe ich zumindest immer nach *g*, außer es geht halt wirklich nicht anders...

himitsu 4. Jan 2010 13:57

Re: temporäre Interfaces sofort freigeben?
 
Zitat:

Zitat von Alaitoc
Ah gut, ja das ist dann wirklich Pech...hm naja ich würds so machen denk ich:

nur wenn es drauf ankommt, dann denkt keiner an Node2 und es kommt nur noch das bei raus
Delphi-Quellcode:
procedure Test;
  var XML: IXMLDocument;
    Node: IXMLNode;

  begin
    XML := coDOMDocument60.Create;
    try
      XML.Version   := '1.0';
      XML.StandAlone := 'yes';
      XML.Encoding  := 'UTF-8';
      XML.AddChild('xml');
      Node := XML.DocumentElement;
      for i := 0 to 9999 do
        Node.AddChild(IntToStr(i));
    finally
      Node := nil;
      XML := nil;
    end;
  end;
theoretisch würde es auch so laufen
Delphi-Quellcode:
procedure Test;
  var XML: IXMLDocument;
    Node: IXMLNode;

  begin
    XML := coDOMDocument60.Create;
    XML.Version   := '1.0';
    XML.StandAlone := 'yes';
    XML.Encoding  := 'UTF-8';
    XML.AddChild('xml');
    Node := XML.DocumentElement;
    for i := 0 to 9999 do
      Node.AddChild(IntToStr(i));
  end;
Hier steckt ja nun alles in einer kleinen Prozedur, aber wenn die Variablen mal länger leben, dann könnte es schon auffallen.

Insgesamt sind diese Prozeduren (samt deiner) etwa gleich schnell und brauchen auch gleich viel Arbeitsspeicher,
aber wo ich dann messen wollte, welcher Schritt wie lange braucht und Dergleichen, da kam halt nur Mist raus.

Zitat:

Zitat von Alaitoc
Edit: Ach und ganz wichtig von wegen msXML.DocumentElement.AddChild ! Law of Demeter Da gehe ich zumindest immer nach *g*, außer es geht halt wirklich nicht anders...

Werd ich mir mal anschauen, auch wenn ich selber MSXML aktuell nur noch für Versuchszwecke nutze. :angel:
[edit]
ach, das gilt allgemein ... na mal sehn, ob ich mir das auch noch Merke :stupid:

Alaitoc 4. Jan 2010 14:14

Re: temporäre Interfaces sofort freigeben?
 
Naja Interfaces benutze ich eh meistens nur in Verbindung mit einer Factory.
Da der Benutzer einer Methode z.b.

Delphi-Quellcode:
  function ErstelleTest: TTest;
ja nicht umbedingt wüßte ob das Objekt freigegeben werden muss. ( Wenn er keine Ahnung von dem Inhalt der Methode hätte )

Bei

Delphi-Quellcode:
  function ErstelleTest: ITEST;
kann man sich sicher sein, dass man sich um Speicherlecks keine Sorgen machen muss.

Und naja das LoD besagt kurz gesagt das man im besten Fall nur einen Punkt benutzen soll.
Also Bsp:

Nicht so:

Delphi-Quellcode:
      XML.DocumentElement.AddChild(IntToStr(i));
Sondern eher so:

Delphi-Quellcode:
  procedure AddChild(Knoten, Inhalt);
  begin
    Knoten.AddChild(InttoStr(i));
  end;

  AddChild(XML.DocumentElement,InttoStr(i));
Auch wenn es auf den ersten Blick mehr Arbeit ist, sind meine Projekte dadurch um einiges übersichtlicher geworden und man bemerkt auch manchmal das der Weg den man gerade einschlägt eher unsauber ist.
So koppelt man die Module nicht so eng miteinander ( zumindest wenn man es richtig macht ).
Dabei helfen einem auch Programmierkonzepte, wie das Factory-Pattern, Command-Pattern, MVC-Pattern, etc...

Btw falls man irgendwo sonst noch bei helfen kann Himitsu sag Bescheid, da ich eh nicht zuhause programmiere... da mir nie etwas sinnvolles einfällt, hätte ich theorethisch oft Zeit zum Helfen...bzw es zu versuchen *gg*


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:46 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz