AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem Treeview.Add / TreeviewAddition...

Ein Thema von DeluxXx · begonnen am 16. Sep 2006
Antwort Antwort
Benutzerbild von DeluxXx
DeluxXx

Registriert seit: 3. Jul 2006
92 Beiträge
 
#1

Problem Treeview.Add / TreeviewAddition...

  Alt 16. Sep 2006, 19:05
Also ich bin grad irgendwie festgefahrem mit einem Treeview
Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
//Form1.Height := 167 ;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I : Integer ;
begin
//Ändere Die Größere und setze die Listbox aus sichtbar
//Form1.Height := 321 ;
//Listbox1.Visible := True ;
if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <>'') then
begin
nNode := Treeview1.Items.AddFirst(Treeview1.Selected, Edit1.Text) ;
 // BroadCast(Edit1.Text) ;
end
  else
  begin
  Showmessage('Bitte füllen sie Startort,Zielort und Startzeit aus!') ;
  end;
end;

procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
begin
if Hops < 25 then
  begin
    Hops := Hops +1 ;
    Broadcast(Node.Text) ;
  end;
end;

procedure TForm1.Broadcast(Trainstation : string) ;
var
TrainstationDest,TrainstationDestination,FinalDestination,Line,Info : string ;
Destinations : TStringlist ;
I : Integer ;

begin
  //Look for all Destinations the Trainstation is going to in the DB
   with AdsTable1 do
  begin
    if not Active then
    Open ;
    Locate('Bahnhof',Trainstation,[loCaseInsensitive,loPartialKey]) ;
  end;
Trainstationdest := AdsTable1.Fieldbyname('Ziele/Linie').asString ;

Destinations := Tstringlist.Create ;
 repeat
       TrainstationDestination := (copy(TrainstationDest,1,pred(pos(',',TrainstationDest))));
       Destinations.Add(TrainstationDestination) ;
       delete(TrainstationDest,1,(pos(',',TrainstationDest))) ;
    until TrainstationDest = '' ;
 // Now the single Information (Destination and Line)
  for I := 0 to Destinations.Count - 1 do
  begin
    Info := Destinations[I] ;
    FinalDestination :=copy(Info,1,pred(pos('/',Info)));
    delete(Info,1,(pos('/',Info))) ;
    Line:= Info;
   nNode := Treeview1.Items.AddChild(nNode,FinalDestination) ;
  end;
Irgendwie wird TForm1.TreeView1Addition aber nicht beim erstellen eines neuen Knotens aufgerufen ( BDS Help ->OnAddition (published) Occurs when new node is added. )
Weitere Vorschläge zu dem Code werden auch gern angenommen ich bin irgendwie mit meinem Wissen am Ende.
Das Ziel koennte man als Broadcast Routing.
(Wikipedia)
Broadcast Routing
Beim Broadcast Routing wird ein Paket an alle Knoten gesendet. Hierbei unterscheiden sich zwei Varianten: Einmal, dass für jeden Knoten ein gesondertes Paket erstellt wird und zum anderen das Fluten. Das Fluten ist hierbei das einfachste Verfahren und ist nicht adaptiv. Jedes eingehende Paket wird auf jeder Übertragungsleitung weitergegeben, außer auf derjenigen, auf welcher es eintraf.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz