Was stimmt hier nicht ? Probleme mit Pointer und dyn. Arrays

[maximov]

Moin,

oder du verpackst die den data-pointer in eine typisierte property, wie ich es hier vorführe...

http://www.delphipraxis.net/internal...enode&start=15

...das ist im wesentlichen, das, was Muetze vorschlägt, nur die funktionalität wird dahin verlagert wo sie nicht die hauptanwendung verstopft.

..nur als anregung :wink:

[UweR]

Noch ein Hinweis zum Code von Muetze:

Zitat:

Delphi-Quellcode:

Procedure TForm1.FormDestroy;
Var
  lInfo : PPictureInfo;
Begin
  While ( TreeView1.Items.Count > 0 ) Do
  Begin
    lInfo := TreeView1.Items[0].Data;
    TreeView1.Items.[0].Delete;
    Dispose(lInfo);
  End;
End;

Jeder TreeView hat das Ereignis OnDeletion was aufgerufen wird wenn ein Knoten gelöscht wird. Das ist ein wunderbarer Ort um Dispose aufzurufen. Das sorgt 1. dafür das auch keine Leichen entstehen wenn zwischendurch mal ein Knoten gelöscht wird und man kann sich die Schleife im FormDestroy sparen.

[TeTSuO]

Klappt wunderbar! Bin echt beeindruckt :-D
Das mit dem OnDeletion funktioniert auch wunderbar.
Das einzige ist ich kann mein TPictureInfo nicht direkt auf PPictureInfo zuweisen;

Delphi-Quellcode:

   var PicInfo: PPictureInfo;
   ...
   New(PicInfo);
   PicInfo:=Picture[I];    // geht nicht! Array ist von typ TPictureInfo 
   ...

muss das jetzt so machen :oops:

Delphi-Quellcode:

Procedure FillPicInfo(var pInfo: PPictureInfo;tInfo: TPictureInfo);
Begin
 pInfo.Picture:=tInfo.Picture;
 pInfo.Text:=tInfo.Text;
 ...
End;

Oder gibt es da auch ne andere Lösung?
Ist mein erstes Projekt mit dem Ich ausfühlich mit Pointern und dyn. Arrays arbeite
Ihr könnt es euch ja mal anschauen! Ist ein Editor für ein Diashow Programm was ich schon damals programiert hab

[Muetze1]

Moin!

Warum du auch immer noch das Array behälst?

Ansonsten:

Delphi-Quellcode:

var PicInfo: PPictureInfo;
   ...
   New(PicInfo);
   PicInfo^ := Picture[I];    // geht nicht! Array ist von typ TPictureInfo
   ...

MfG
Muetze1

[TeTSuO]

hab ich dann auch rausgefunden. Trotzdem Danke!

Ich habe das jetzt anders gemacht. :thumb:

Ich habe jetzt eine Class TPicFile, dyn. Array gelöscht dafür als Eigenschaft TreeView.
Nun wird über die Class alles gemacht. neue Einträge hinzugefügt Daten an die Nodes gehängt usw.
Funktioniert problemlos und ist absolut übersichtlich im Quellcode.

Danke für eure Hilfe und Interesse