Forum: Programmieren allgemein
by simonko,
15. Jan 2006
For i:=0 To MyTreeView.Items.Count - 1 do
DoSomethingWith (MyTreeView.Items
dabei wird der baum so oft nutzlos durchgelaufn..
Forum: Programmieren allgemein
by simonko,
15. Jan 2006
das mit dem index geht ganz langsam weil das intern so implementiert ist dass der das rekursiv durch geht.
Forum: Programmieren allgemein
by simonko,
15. Jan 2006
if Treeview1.Selected.Count>=2 then
Neu1.Enabled:=false;
ich kann höchstens nur 2 kinder anhängen. also ist das egal. nur frag ich mich wenn ich nur ein kind anhänge dann müsste getfirst und getlast das selbe sein oder? dann versucht er etwas zu löschen was schon gelöscht wurde.
Forum: Programmieren allgemein
by simonko,
15. Jan 2006
Ja hab gemerkt ich konnts nicht kompilieren mit dem Var. Aber gibts da vielleicht eine schon ausprogrammierte Variante wie man das Treeview durchgeht oder passt das so wie ich das jetzt geschrieben hab?
Forum: Programmieren allgemein
by simonko,
15. Jan 2006
procedure durchgehen(var treenode : TTreenode);
begin
if treenode.haschildren then begin
durchgehen(treenode.getFirstChild);
durchgehen(treenode.GetLastChild);
end;
TOperand(treenode.Data).destroy;
end;
Forum: Programmieren allgemein
by simonko,
15. Jan 2006
Wenn ich einen Node in der Treeview auswähle kann ich ihn und seine nachfolger löschen. Dafür gibs die funktion TreeView1.Selected.Delete; ich hab aber in jeden Node ein Objekt gespeichert. Nun müßte ich den baum durchgehen (meine treeview hat immer nur 2 nachfolger) und die objekte destroyn. hat jemand eine idee wie ich das durchgehen kann?