1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  Form1: TForm1;
  Baum: TBaum;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Baum := TBaum.Initialisiere;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Listbox_ausgeben;
Var Element : TObjekt;
Begin
// ???
End;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Listbox_ausgeben;
Var Element : TObjekt;
Begin
Element := Baum.Aktuell;
if Element.LinkerNachfolger <> nil
 then
  Listbox_ausgeben;
  Listbox1.lines.add(Element.Inhalt);
 if Element.RechterNachfolger <> nil
  then
   listbox_ausgeben;
   listbox1.lines.add(Element.Inhalt);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TBaum.Listbox_ausgeben;
Var Element : TObjekt;
Begin
Element := Baum.Aktuell;
if Element.LinkerNachfolger <> nil
 then
  TBaum.Listbox_ausgeben;
  Listbox1.lines.add(Element.Inhalt);
 if Element.RechterNachfolger <> nil
  then
   TBaum.listbox_ausgeben;
End;					

1:
2:
3:
4:
5:

    1
   / \
  2   3
 / \   \
4   5   6					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TBaum.Baum2List(Knoten: TObjekt)
begin
  // Linker Teilbaum wird untersucht
  if Knoten.Links <> nil
    Baum2List(Baum.Links);
  // Wert des Knotens wird ausgegeben
  Listbox.Items.Add(Knoten.Inhalt.Text); // Ich weiß nicht, was TInhalt für ein Typ ist.
  // Rechter Teilbaum wird untersucht
  if Baum.Rechts <> nil
    Baum2List(Knoten.Rechts);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Listbox_ausgeben(Element:TObjekt);
Begin
if Element.LinkerNachfolger <> nil
 then
  Listbox_ausgeben(Element.LinkerNachfolger);
  Listbox1.Items.Add(Element.Inhalt);
 if Element.RechterNachfolger <> nil
  then
   listbox_ausgeben(Element.RechterNachfolger);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Listbox_ausgeben(Element:TObjekt);
begin
  if Element.LinkerNachfolger <> nil then
    Listbox_ausgeben(Element.LinkerNachfolger);
  
  Listbox1.Items.Add(Element.Inhalt);

  if Element.RechterNachfolger <> nil then
    listbox_ausgeben(Element.RechterNachfolger);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TList.FuegeEinNach (Inhalt: TInhalt);
Var neues_Element : TObjekt;
begin
 neues_Element := TObjekt.Create;
 neues_Element.Inhalt := Inhalt;
 If leer = false then
  begin
   neues_Element.Nachfolger := Aktuell.Nachfolger;
   Aktuell.Nachfolger := neues_Element;
  end
  else begin
   neues_Element.Nachfolger := Nil;
   Wurzel := neues_Element;
  end;
 Aktuell := neues_Element;
end;					

1:
2:
3:
4:
5:
6:

  With Liste Do
    Begin
      FindeLetztes;
      FuegeEinNach(Edit1.Text);
    End;
  Listbox_ausgeben;