Guten Tag zusdammen, ich bins mal wieder
Also Folgendes zu meinem problem:
Ich habe hier einen Binären Baum (sortiert, nicht ausgewogen)programmiert, hier ist der Quelltext
Delphi-Quellcode:
Zeiger = ^Knoten;
Knoten = Record
Links: Zeiger;
Rechts: zeiger;
Inhalt: Integer;
end;
var
Form1: TForm1;
a: Integer;
Wurzel: Zeiger;
implementation
{$R *.DFM}
Procedure Einfuege (zahl: Integer; var Lauf: Zeiger);
Begin
If Lauf = Nil Then
begin
New(lauf);
With Lauf^ do
Begin
Inhalt:= zahl;
links:= Nil;
rechts:= Nil;
end;
end
else
if Zahl < Lauf^.Inhalt then Einfuege (zahl, lauf^.Links)
else
If Zahl > lauf^.Inhalt then Einfuege (zahl, Lauf^.Links)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Wurzel:= NIL;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Zahl: Integer;
begin
a:= StrToInt(Edit1.Text);
Einfuege (a, Wurzel);
end;
Dabei ist a die zahl die in dem Baum eingefügt werden soll.
ber den Button1 soll der baum aufgebaut werden, d.h. die Zahl, in Edit1 angegeben wird (= a) soll in den baum einsortiert werden.
Das problem läuft sacheinbar auch, bloß habe ich keine ahnung, wie ich den baum optisch ausgeben soll. Bis jetzt bleibt Form1 immer grau.
Kann hier jemand eingie optisch ansprechende, jedoch nicht zu schwer umzusetzende Ideen geben, wie ich den ganzen baum auf Form1 darstellen könnte??
erste ideen von mir waren irgendwie mit Canvas was zu machen, kam dabei aber nicht weiter...eine zweite idee war ganz viele labels zu benutzen, das erschien mir aber 1) zu kompliziert, 2) würde es nicht besonders aussehen
also ich hoffe ihr habt alles verstanden danke schonmal für alle Vorschläge
cu gregor