Елка в меме

[Ken_Watanabe]

Прошу помочь! Нужно заполнить елку звездочками, вот рама елки
Код в делфи...

procedure TForm1.btn1Click(Sender: TObject);
var  i,j:integer;
begin
for i:=1 to 20 do
 begin
  for j:=1 to 20 do
   begin
    if (j=i+10) or (j=i-10)or(j=20-i+1+10)or(j=20-i+1-10)
    then mmo1.Text:=mmo1.Text+'*'
    else mmo1.Text:=mmo1.Text+'  ';
   end;
  mmo1.Text:=mmo1.Text+#13#10;
 end;
end;
end.

Теперь нужно заполнить внутрь елки звездочакми... Помогите пожалуйста

Помогите решить задачу пожалуйста,срочно надо проста

[Ken_Watanabe]

Неужели не кто не хочет помочь?

[eval]

не кто не хочет помочь?

а догадаться никак? ведь логично, что ели никого нет то и ..

[Ken_Watanabe]

Сообщение от eval

а догадаться никак? ведь логично, что ели никого нет то и ..

Напишите пожалйста код

[Человек_Борща]

Как-то так:

var
 i:Integer;
 s:string;
 sLen,zpos,zcount,zi:Integer;
begin
{
Пропускаем вначале и в конце
*****************


}
 for i:=1 to Memo.Lines.Count -2 do
 begin
  s:= Memo.Lines[i];
  sLen:= Length(s) -1; //*                       *, пропускаем * в начале и в конце
  zcount := RandomRange(1,sLen); //кол-во звезд
  for zi:=1 to zcount do //Тыкаем звезды
  begin
    zpos:=RandomRange(1,slen); //ВЫбираем позицию,
    sLen[zpos] := '*';
  end;
 end;
end;

Писал в браузере, так что копипаста не прокатит.

[Ken_Watanabe]

Благодраю! Спасибо огромное

[Аватар]

Елки нет, есть ромб. Заполнять так заполнять

  for i:=1 to 20 do
    mmo1.Lines.Add(StringOfChar(' ',Abs(i-10)-(i div 11))+
                   StringOfChar('*',(10-Abs(i-10)+(i div 11))*2)+
                   StringOfChar(' ',Abs(i-10)-(i div 11)));

Фонт Courier New например

[puporev]

Ёлка

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
n:=20;
for i:=1 to n do
memo1.Lines.Add(StringOfChar(' ',20-i+1)+StringOfChar('*',2*i-1));
end;