Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
7. Mär 2005
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
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
7. Mär 2005
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;
var PicInfo: PPictureInfo;
...
New(PicInfo);
PicInfo:=Picture; // geht nicht! Array ist von typ TPictureInfo
...
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
6. Mär 2005
Wie soll das gehen? Data kann nur Pointer enthalten also müssen doch die Daten auch irgendwo gespeichert sein. Aber wo
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
6. Mär 2005
Ich habe das Problem jetzt anders gelöst
Ich benutze die Index Eigenschaft der TreeNodes für mein Array
Dieses muss ich halt genau so ändern wie sich die TreeView-Nodes ändern
Heist beim verschieben, kopieren und löschen Array anpassen
Ist zwar blöd aber es Funzt
Wenn einer ne andere Lösung hat kann er sie ja Posten
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
6. Mär 2005
Wenn ich im debugger schaue
Picture := Picture;
ist picture gefüllt mit den werten von Picture.
kann es sein das das Treeview beim löschen eines Nodes irgendwas mit der
Data-Eigenschaft macht
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
6. Mär 2005
Wieso schrecklich was gefällt dir an dem Code nicht?
Oder wie würdest du sowas schreiben ?
Function DeletePicture(PicInfo:Pointer): Boolean;
Var I,Index: Integer;
ptr2: ^TPictureInfo; // Addresse auf Eintrag im Dyn. Array Picture
Begin
Result:=False;Index:=-1;
For I:=0 to Count-1 do Begin // Array durchlaufen
Forum: Object-Pascal / Delphi-Language
Delphi
by TeTSuO,
6. Mär 2005
Hallo Leute ich hab ein Problem!
Ich habe eine Treeview in der mehrere Elemente sind und ein dyn. Array welches für jeden Eintrag die daten enthalt diese werden mittels
TreeNode.Data := @Array
and das TreeNode gehängt
Wenn ich nun ein Element auswähle und dieses mit