求助一个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 有几个地方不明白 谢谢了
这是一个控制台程序吗？
函数就是函数,在控制台可以用,在非控制台也可以用.看来不基础不牢啊
谢谢啊 刚才真
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
请问哪位大神能帮我看看我这句转得对不对 老是会出错。
编译没提示错误 但是运行程序的话会出错
我用API HOOK拦截了dr0-dr3 然后发现假如我dr0:=$123456
而其他dr1-dr3我都不设置 但是拦截到之后却发现dr0:=$1234 ......
delphi做的应用系统
现在要把UI做成Flash效果的(不需要动态,但是平滑,色泽,颜色,布局什么的,还有用户输入,信息显示的多态变换),UI有专人设计
这个咋搞呢
皮肤控件是达不到这个效果的
大家给点建议咯
http://w ......
在安装完成Delphi的时候，打开Delphi进入窗口，点运行的时候为什么自动停止运行了。
什么意思，是新建的应用运行停止，还是程序停止了呢。
没明白LZ意思~~
引用
在安装完成Delphi的时候，打开De ......
