求助一个Delphi数字游戏代码

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

---

平行四边形,你是要求画图还是数字排列?

---

是数字 排列 不是画图 谢谢大哥帮帮忙

---

你那个是菱形啊,这个不难实现,首先定义一个
Delphi(Pascal) code:
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;

---

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

---

不要意思上面有点小错误
Delphi(Pascal) code:
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;

---

这是函数,返回的就是你需要的图形了,参数就是中间最大的那行的个数,我没有调试你可以试试

---

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

---

这是一个控制台程序吗？

---

函数就是函数,在控制台可以用,在非控制台也可以用.看来不基础不牢啊

---

谢谢啊 刚才真