Aaaah, jetzt hab ichs geschnallt
Danke !
Nur das Doofe daran ist jetzt, dass in der ersten Zeile 3 Sterne stehen.
Delphi-Quellcode:
for i := 0 to 30 do
Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', 1 + i * 2));
Habe es jetzt so gelöst:
Delphi-Quellcode:
for i := 0 to 30 do
Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', -1 + i * 2));
Ich weiß ehrlich gesagt nicht genau WIESO das jetzt so funktioniert, aber es sieht gut aus
http://www.directupload.net/images/070315/QK9tjzRp.jpg
Danke, ihr seid die Geilsten !
[edit] Vergesst es
Hab i falsch gehabt, fing an mit for i := 1 und nicht 0. Deshalb war die Rechnung falsch. Stimmt also alles, DANKE [/edit]