易截截图软件、单文件、免安装、纯绿色、仅160KB

求助一个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 有几个地方不明白 谢谢了

这是一个控制台程序吗?

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

谢谢啊 刚才真


相关问答:

Python中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

DELPHI DLL实参传窗体

//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

用Delphi做一个影院售票管理系统

老师布置了一个课题,需要用Delphi做一个影院售票管理系统,但是我们还没有学过Delphi,各位高手能否指点一下,如何进行系统设计,时间比较紧急,谢谢啊
我也不懂,也想学!

我也是啊,感觉Delphi挺好的,现 ......

vc转delphi问题

请问哪位大神能帮我看看我这句转得对不对 老是会出错。
编译没提示错误 但是运行程序的话会出错
我用API HOOK拦截了dr0-dr3 然后发现假如我dr0:=$123456
而其他dr1-dr3我都不设置 但是拦截到之后却发现dr0:=$1234 ......

DELPHI中调用带有日期型参数的存储过程

SQL code:
CREATE PROCEDURE 合计
@date1 datetime,@date2 datetime
AS select top 20 a.物料代码,sum(a.总数量)as 数量合计,sum(a.总金额)as 金额合计,a.物料名称,a.型号 from
(SELECT dbo.sbilldet.itemno AS ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号