Pyramide zeichnen

[himitsu]

StringOfChar?

i = 1 to zeilen

i-mal für die Sterne
und (zeilen - i)-mal für die Leerzeichen davor

Delphi-Quellcode:

for i := 1 to 30 do
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', i));

alternativ deines mit den Strings

Delphi-Quellcode:

L := '                       ';
S := '*';
Repeat
  Memo1.Lines.Add(L + S);
  S := S + '*';
  Delete(L, 1, 1);
Until L = '';