Delphi-PRAXiS
Seite 6 von 6   « Erste     456   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Data zu Treeview hinzufügen ? (https://www.delphipraxis.net/112866-data-zu-treeview-hinzufuegen.html)

Delphiturbo 1. Mai 2008 13:36

Re: Data zu Treeview hinzufügen ?
 
Zitat:

Zitat von alzaimar
Du Treeview Ereignisse zugewiesen?

ja, 3 mals :
1. TreeViewChange
2. TreeViewDblClick
3. TreeViewDeletion

Delphiturbo 1. Mai 2008 13:43

Re: Data zu Treeview hinzufügen ?
 
Zitat:

Zitat von mkinzler
Du solltest auch den Schleifenkörper in begin ..end einschliessen!

Ich habe den Teil, wie Du vorgeschlagen hast genommen.

Die Muhkuh 1. Mai 2008 13:45

Re: Data zu Treeview hinzufügen ?
 
Einfach nur abkopieren ist halt nicht. Da fehlt einfach ein begin und ein end, wie Markus schon sagte.

Ich denke mal, Du solltest Dir das eine oder andere Grundlagentutorial anschauen.

Nuclear-Ping 1. Mai 2008 14:09

Re: Data zu Treeview hinzufügen ?
 
[OT]
Oh man, wie Begriffsstutzig man sein muss ... :wall:

Kanns sein dass wir schon seit 4 Seiten um das gleiche herumreden und inzwischen mind. schon ein kompletter Quellcode zu dem Ganzen gepostet wurde?
[/OT]

Delphiturbo 1. Mai 2008 14:26

Re: Data zu Treeview hinzufügen ?
 
das liegt nicht an Begin und End von der For-Schleife :
Delphi-Quellcode:
 procedure TForm1.FormCreate(Sender: TObject);
var
 node: TTreeNode;
 I: Integer;
 data: PMyData;
Begin
 node:=TreeView1.Items.GetFirstNode;
 while Node <> nil do
  if Node.level = 1 then
   for i:= 0 to 3 do
    begin
     new( data);
     data.Url := ListBox1.Items[i];
     Node.Data := data;
     Node := Node.GetNext;
    end;
End;
Wenn ich das Programm kompiliere, dann erscheint zwar keine Fehlermeldung, bleibt das Programm unsichtbar bis ich mit ALT+Schift+Entf beande !!!

Ein Freund von mir hat das Problem mit einer anderen Idee gelöst, wollte ich aber gerne diesen Code weiterbearbeiten bis ich ihn zum laufen bringe.

mkinzler 1. Mai 2008 14:38

Re: Data zu Treeview hinzufügen ?
 
Füge
Delphi-Quellcode:
Node := Node.GetNext;
in den Else-Zweig ein

Das Problem liegt daran, wenn das Level nicht 1 ist, eine Endlosschleife entsteht, da diese nicht Nil ist aber auch nicht verändert wird


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr.
Seite 6 von 6   « Erste     456   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz