求助一个Delphi数字游戏代码

Question

请大家帮忙   谢谢了  用Delphi编写一个平行四边形
   1
  111
 11111
  111
   1
就是这个样子的    在这里谢谢了

Answer 1

你那个是菱形啊,这个不难实现,首先定义一个
function HuaLingXing(const MaxA):string;
var
  i:integer;
begin
  i:=1;
  while i<=MaxA do
  begin
    result:=result+'#13#10' + '1';
    i:=i+2;
  end;
end;

Answer 2

你这个是控制台程序吗？   我想的是在Memo上显示的

Answer 3

不要意思上面有点小错误
function HuaLingXing(const MaxA:integer):string;
var
  i:integer;
  function LXLine(const ALine:integer):string;
  var
    j:integer
  begin
    for j:=1 to ALine do
       result:= result + '1';
  end;
begin
  i:=1;
  while i<=MaxA do
  begin
    result:=result+'#13#10' + LXLine(i);
    i:=i+2;
  end;
end;

Answer 4

你能把你QQ告诉我吗   我想向你请教几个问题  我QQ342273794  有几个地方不明白 谢谢了