AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi TreeNode Data, New & Dispose mit String

TreeNode Data, New & Dispose mit String

Ein Thema von schwa226 · begonnen am 27. Jan 2010 · letzter Beitrag vom 27. Jan 2010
Antwort Antwort
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#1

TreeNode Data, New & Dispose mit String

  Alt 27. Jan 2010, 09:22
Hi,

ich weise einem TreeNode.Data einen Pointer zu:
Delphi-Quellcode:
type
  PDataRec = ^TDataRec; { RecordPointer }
  TDataRec = record { Record for Node-Data }
    Path: string;
    { To be extended }
  end;
Mein Type (ist ein Record weil man weis ja nie ob noch was dazukommt.

Dann erzeuge ich den Child-Node aus einem Stream.
Im Stream steht zuerst die Textlänge. Dann wird anhand der Textlänge der Text vom Stream gelesen:
Delphi-Quellcode:
  var
    ChildNode : TTreeNode;
    TextLength, HasChildren, ImageIndex, SelectedIndex : Integer;
    NodeName : String;
    pData : PDataRec;
      new(pData);
      TreeStream.Read(TextLength, SizeOf(Integer));
      SetLength(pData^.Path, TextLength div 2);
      TreeStream.Read(PWideChar(pData^.Path)^, TextLength);

      //make new child node
      ChildNode:= Tree.Items.AddChild(Node,NodeName);
      ChildNode.ImageIndex := ImageIndex;
      ChildNode.SelectedIndex := SelectedIndex;
      ChildNode.HasChildren := Bool(HasChildren);
      ChildNode.Data := pData;
Bei der OnDeletion Funktion vom TreeView mache ich dann:
Dispose(Node.Data) Jedoch meldet mit FastMM Unicodestrings, die übrig bleiben.

Schätze einmal, dass es an der Zeile: TreeStream.Read(PWideChar(pData^.Path)^, TextLength); liegen wird, oder?
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.165 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: TreeNode Data, New & Dispose mit String

  Alt 27. Jan 2010, 09:44
Mir ist gerade etwas eingefallen, was klappen könnte:

Delphi-Quellcode:
Finalize(PDataRec(Node.Data)^);
Dispose(Node.Data);
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#3

Re: TreeNode Data, New & Dispose mit String

  Alt 27. Jan 2010, 09:58
Super! Danke!

Und weg sind die Mem-Leaks!
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf