Text in einen Tannenbaum umformen mit Borland Delphi

[MickMad]

Zitat von MickMad:

Hallo Leute,
ich habe ein Problem. Ich muss ein programm erstellen das einen Text in einen Tannenbaum umformen soll.
Und ich weiß nicht wie ich das machen soll. Und was ich da für edit und image noch sonst was einsetzen soll. Brauche Hilfe dringen.
Danke MickMad

Hier noch eine kleine Hilfe,trotzdem weiß ich nicht mit was ich das ausgeben soll oder kann.

Delphi-Quellcode:

Var ch: CHAR;

PROCEDURE Einruecken(Anzahl: INTEGER);
VAR i: INTEGER;
BEGIN
  FOR i := 1 TO Anzahl DO write(' ');
END;

PROCEDURE Spitze(Zeichen: CHAR);
VAR j: INTEGER;
BEGIN
  Einruecken(39);
  writeln(Zeichen);
END;

PROCEDURE Zweig(Stufen: INTEGER; Zeichen: CHAR);
VAR i,j: INTEGER;
BEGIN
  FOR i := 1 TO Stufen DO BEGIN
    Einruecken(40-2*i);
    FOR j := 1 TO 4*i-1 DO write(Zeichen);
    writeln;
  END;
END;

PROCEDURE Stamm(Zeichen: CHAR);
VAR i,j: INTEGER;
BEGIN
  FOR i := 1 TO 2 DO BEGIN
    Einruecken(38);
    FOR j := 1 TO 3 DO write(Zeichen);
    writeln;
  END;
END;
procedure TForm1.Button1Click(Sender: TObject);
begin
With Image1.Canvas do begin
  writeln('Es wird ein Tannenbaum dargestellt.');
  writeln;
  write('Welches Zeichen soll verwendet werden? '); readln(ch);
  Spitze(ch);
  Zweig(2,ch);
  Zweig(4,ch);
  Zweig(6,ch);
  Zweig(8,ch);
  Stamm(ch);
  readln;
end;
end;
end.

[edit=mkinzler]Delphi-Tag eingefügt. Mfg, mkinzler[/edit]