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[Index]
and das TreeNode gehängt
Wenn ich nun ein Element auswähle und dieses mit
Delphi-Quellcode:
DeletePicture(TreeView.Selected.Data);
TreeView.Selected.Delete;
löschen will verschwindet es zwar in dem TreeView
wenn ich aber nun das letzte Element im TreeView auswähle
kommt ne Fehlermeldung
Meine Löschprozedur hab ich so programmiert
Delphi-Quellcode:
Function DeletePicture(PicInfo:Pointer): Boolean;
Var I,Index: Integer;
ptr2: ^TPictureInfo;
Begin
Result:=False;Index:=-1;
For I:=0 to Count-1 do Begin
ptr2:=@Picture[I];
if PicInfo = ptr2 Then Index:=I;
End;ptr2:=nil;
if Index <> -1 Then Begin
For I:=Index to high(Picture)-1 do
Picture[I]:=Picture[I+1];
SetLength(Picture,Count-1);
Result:=True;
End;
End;