AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Warum funktioniert rekursiv aufgerufene Procedure nicht?
Thema durchsuchen
Ansicht
Themen-Optionen

Warum funktioniert rekursiv aufgerufene Procedure nicht?

Ein Thema von chris_82 · begonnen am 3. Sep 2003 · letzter Beitrag vom 5. Sep 2003
 
chris_82

Registriert seit: 26. Aug 2003
112 Beiträge
 
Delphi 6 Enterprise
 
#6

Re: Warum funktioniert das nicht?

  Alt 4. Sep 2003, 20:16
So nun funzt es, hatte erstens etwas vergessen, einmal auf den entsprechenden Knoten zu springen und zum zweiten hab ich mit dem bisherigen rekursiven Aufruf der Procedure den Boden weggerissen, so das er nie mehr an den entsprechenden Knoten gekommen ist.
Aber mit der Einführung der temp Variablen läuft es so wie ich es mir gedacht hab.
Delphi-Quellcode:
procedure Tfrm_haupt.abschnitte_erstellen(var kno_a:ixmlnode; var xml_z:ixmlnode);
var i,anz_abschnitte:integer;
    temp_kno_a, temp_xml_z : ixmlnode
const c_Abschnitt='Abschnitt';
      c_TLG='TLG';
begin
  anz_abschnitte:=kno_a.ChildNodes[0].ChildNodes.Count;
  if anz_abschnitte >= 1 then
  begin
    for i:=0 to anz_abschnitte-1 do
    begin
      if kno_a.ChildNodes[0].ChildNodes[i].AttributeNodes['Typ'].Text='Knotenthen
      begin
        xml_z.AddChild(c_Abschnitt);
        xml_z.Childnodes[i].Attributes['Bez']:=kno_a.ChildNodes[0].ChildNodes[i].AttributeNodes['Bez'].Text;
      end
      else
      if kno_a.ChildNodes[0].ChildNodes[i].AttributeNodes['Typ'].Text='TLGthen
      begin
        xml_z.AddChild(c_TLG);
        xml_z.Childnodes[i].Attributes['I']:=kno_a.ChildNodes[0].Childnodes[i].AttributeNodes['IR'].Text;
        xml_z.ChildNodes[i].Attributes['Bez']:=kno_a.ChildNodes[0].Childnodes[i].AttributeNodes['Bez'].Text;
      end;
      temp_kno_a:=kno_a.ChildNodes[0].ChildNodes[i];
      temp_xml_z:=xml_z.Childnodes[i];
      abschnitte_erstellen(temp_kno_a,temp_xml_z);
    end;
  end;
end;
@Chakotay1308:

bin Neuling in Delphi und ebenfalls in XML, was genau ist nun XSL, meinst du das ich damit einfacher zu dem Ziel komme?

Der rekursive Aufruf findet eben daher statt, da es in einem Dokument z.B. einen Knoten vom Typ=Knoten geben kann und dieser enthält wiederum einen Knoten vom Typ=Knoten und dieser wieder... und ich muss in dem Zweig eben jeden dieser Knoten als Knoten vom Typ=Abschnitt in ein neues Dokument schreiben, eben wieder Knoten enthält Knoten vom Typ=Abschnitt..., ich hoff das ist jetzt etwas klarer geworden. Aber nun funzt der Code ja *ganzdollfreu*
....oop und nun...??
http://www.sengewald.info
  Mit Zitat antworten Zitat
 


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 17:36 Uhr.
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-2025 by Thomas Breitkreuz