Text in einen Tannenbaum umformen mit Borland Delphi

[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

[MickMad]

Zitat:

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]

[jaenicke]

WriteLn ist ein Konsolenbefehl für ein Programm ohne graphische Oberfläche. Eine Leinwand (Canvas) auf einem Formular kennt so etwas nicht, da musst du mit TextOut arbeiten und auch die Position für jeden Text angeben.

Soll das eine normale Formularanwendung sein? Und soll das auf einem TImage ausgegeben werden?

[MickMad]

Ich hab da so einen Zettel bekommen darauf steht das ein beliebiger text eingegeben werden soll,die leerzeichen sollen entfernt werden,und der veränderte text soll so ausgegeben werden,das die erste zeile ein,die zweite drei,die dritte Zeile fünf usw. sodaß dann der text wie ein tannenbaum aussieht.
Beispiel ist auch dabei:
D
IES
ERTEX
THATDIE
FORMEINES
TANNENBAUMS
X
X

Weiß nich wie das gehen soll!

[MickMad]

Zitat:

Zitat von MickMad

Ich hab da so einen Zettel bekommen darauf steht das ein beliebiger text eingegeben werden soll,die leerzeichen sollen entfernt werden,und der veränderte text soll so ausgegeben werden,das die erste zeile ein,die zweite drei,die dritte Zeile fünf usw. sodaß dann der text wie ein tannenbaum aussieht.
Beispiel ist auch dabei:
D
IES
ERTEX
THATDIE
FORMEINES
TANNENBAUMS
X
X

Weiß nich wie das gehen soll!

Aufpassen beispiel hat sich verrutscht!

[jaenicke]

Ich würde ein Memo mit der Schriftart Courier New nehmen. Dann musst du nur noch den Text in die Zeilen schreiben.

Und dann überlege dir einmal was nacheinander passieren muss. Wieviele Zeichen jeweils in die aktuelle zeile müssen, usw., danach kannst du das dann in einer while-Schleife umsetzen.
Aber zuerst musst du dir überlegen was da eigentlich passieren muss (unabhängig von Delphi oder vom Programmieren).

[mkinzler]

Ich möchte dich auch darauf hinweisen, das hier das Pushen erst nach 24 Stunden erlaubt ist. Möchtest du Ergänzungen machen, editiere deinen letzen Post.

[MickMad]

Kannst du mir da keine weiteren Tipps geben wie ich da anfangen soll? Wie ist die ein und ausgabe für memo?

[Fussball-Robby]

So, wie der oben gepostete Code aussieht, handelt es sich um eine Konsolenanwendung. Wieso entwickelst du dann nicht eine solche?

Edit: Also, mein Vorgehen: Neue Konsolenanwendung, Code 1:1 reinkopiert (natürlich das OnClick und das mit Image1 etc weg) und: Es funktioniert. Das einzige, was du noch machen musst, ist anstatt einem einzelnen Zeichen einen Text zu zerlegen.

[jaenicke]

Zitat:

Zitat von Fussball-Robby

Edit: Also, mein Vorgehen: Neue Konsolenanwendung, Code 1:1 reinkopiert (natürlich das OnClick und das mit Image1 etc weg) und: Es funktioniert. Das einzige, was du noch machen musst, ist anstatt einem einzelnen Zeichen einen Text zu zerlegen.

Man kann das auch mit MemoX.Lines.Add usw. auf ein Memo übertragen.

Ich vermute doch einmal, dass der Quelltext oben von wo anders stammt und eigentlich keine Konsolenanwendung erstellt werden soll, oder?

[lbccaleb]

Meinst du sowas??
(unten angehangen)


Wenn ja dann musst du nur noch dafür sorgen, dass die Leerzeichen aus deinem (eigenen) Text verschwinden!
Dazu gibts in der DP genug bsp!!

Edit:
OK, OK!!
Habs ja schon korrigiert.. :)

mfg

[mkinzler]

Zitat:

Wenn ja dann musst du nur noch dafür sorgen, dass die Lehrzeichen aus deinem (eigenen) Text verschwinden!

Und die Leerzeichen am Besten auch. :zwinker:

[MickMad]

Und wie dreh ich das um? Damit die spitze nach oben ist?

[MickMad]

Wo find ich die Beispiele von DP? Danke für alles bisher!

[mkinzler]

@MickMad: Dass mit dem Nicht-Pushen war ernst gemeint
35Min sind ganz klar < 24 Stunden.
Also editiere deinen letzen Beitrag, wenn noch keine Antworten danach kamen und dieser keine 24 Stunden her ist!

[MickMad]

Zitat:

Zitat von lbccaleb

Meinst du sowas??
(unten angehangen)


Wenn ja dann musst du nur noch dafür sorgen, dass die Leerzeichen aus deinem (eigenen) Text verschwinden!
Dazu gibts in der DP genug bsp!!

Edit:
OK, OK!!
Habs ja schon korrigiert.. :)

mfg

Geht das auch mit einer ListBox? Hast du noch mehr Beispiele für so eine Umformung. Du hast mir da ja nur eine Zeile als Programm gegeben.Kann man das nicht auch in den Quelltext eingeben.
MfG MickMad

[lbccaleb]

Ich hab nichts anderes gemacht als den Text zu zentrieren!
Klar kannst du das auch umdrehen, musst nur dem Memo einen anderen Text zuweisen...
Ich bin mir nur nicht ganz sicher ob Ihr genau das machen sollt, ich dneke mal Ihr sollte ne programierte lösung erstellen?? :gruebel:

Weil das währe ja sonnst echt nen bissel hohl :lol:


Und um es bei ner ListBox zu machen, müsste auch gehen, müsste ich aber selber schauen wie ditt nochmal war.. Hab da nicht gerade die Lust für, nachher vllt :)