这个过程中含有过程的程序怎么看? 被包含的过程只有包含它的过程可以调用 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当作普通过程用就可以,不过功能要强一些,比如内嵌过程可以直接用上级过程内参数等等 过程可以嵌套!!!!!!!!!!!!!!!!!!!!!!1 to wd2306(木头) :可以.但我不知道怎么看?全部程序在这里:procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall; procedure InvertDirection(var Step: Integer); begin if Step > 0 then Step := -1 else Step := 1; Step := (Random(SPEED) + 1) * Step; end;var I : Integer; DC: HDC; R : TRect;begin for I := 0 to PointNum - 2 do begin { 穝–狠翴畒夹 } Inc(Points[I].X, Steps[I].X); Inc(Points[I].Y, Steps[I].Y); { 代畒夹琌禬 pnlCanvas 絛瞅, 狦禬, 玥はㄤ簿笆よ, 穝睹计眔硉瞯 } if (Points[I].X <= 0) or (Points[I].X >= pnlWidth) then InvertDirection(Steps[I].X); if (Points[I].Y <= 0) or (Points[I].Y >= pnlHeight) then InvertDirection(Steps[I].Y); end; Points[PointNum - 1] := Points[0]; { 盢 pnlCanvas 睲埃フ︹穝酶籹 Bezier Ρ絬 } DC := GetDC(pnlHandle); GetClientRect(pnlHandle, R); FillRect(DC, R, GetStockObject(WHITE_BRUSH)); PolyBezier(DC, Points, PointNum); ReleaseDC(pnlHandle, DC);end; 噢有点错误应该是“比如内嵌过程可以直接用上级过程内参数、变量等等” 各位: 那需要怎么用呢?什么时候用呢? 只要是在上级过程体内,随便什么时候用,跟你说过跟其他过程调用没什么区别 郁闷贴.... 散分三 高手请进,我在DELPHI里面编译出了这个错,我不知道在哪定义。(满分) 随便一问:ADOQuery在open后,能否取其中的某些字段的最大值? 访问网络中另外一台机器文件的最好方案? 请帮我看看下面的代码错哪儿了? 高分求怎样从DLL中装载ANI光标? 怎么实现以下效果? 按照一定条件选择数据后,如果有数据存在,出现弹窗,如何实现。 请问有谁知道一些好的新闻组? delphi5中如何拷贝文件? QuickRep的打印设置问题 如果有人在局域网上读或写我的共享的文件,我就能立即知道,有这样的软件吗?
全部程序在这里:
procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2:
DWORD); stdcall; procedure InvertDirection(var Step: Integer);
begin
if Step > 0 then Step := -1 else Step := 1;
Step := (Random(SPEED) + 1) * Step;
end;var
I : Integer;
DC: HDC;
R : TRect;
begin
for I := 0 to PointNum - 2 do
begin
{ 穝–狠翴畒夹 }
Inc(Points[I].X, Steps[I].X);
Inc(Points[I].Y, Steps[I].Y); { 代畒夹琌禬 pnlCanvas 絛瞅, 狦禬, 玥はㄤ簿笆よ,
穝睹计眔硉瞯 }
if (Points[I].X <= 0) or (Points[I].X >= pnlWidth) then
InvertDirection(Steps[I].X);
if (Points[I].Y <= 0) or (Points[I].Y >= pnlHeight) then
InvertDirection(Steps[I].Y);
end;
Points[PointNum - 1] := Points[0]; { 盢 pnlCanvas 睲埃フ︹穝酶籹 Bezier Ρ絬 }
DC := GetDC(pnlHandle);
GetClientRect(pnlHandle, R);
FillRect(DC, R, GetStockObject(WHITE_BRUSH));
PolyBezier(DC, Points, PointNum);
ReleaseDC(pnlHandle, DC);
end;
应该是“比如内嵌过程可以直接用上级过程内参数、变量等等”
那需要怎么用呢?什么时候用呢?