设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2427|回复: 3

[求助] 请大神帮忙看看这段程序。求修改

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is' r. P; H2 R, M/ [& m0 f5 j6 T
        m,n:integer;
+ t# J4 F0 j" ?2 `' |1 y8 b        Name:string;
! h# o( @1 R; o  D% K! n. i9 m        obj:object;
, w, n: t* O, M1 wdo
8 ?. [: N0 c; Y$ c        m:=str_to_num(omit(?.Name,1,5));
6 j: c; D/ k+ f; Q9 Z# u% L        Name:=sprint("Output_Line",m);
8 Z3 I; E, o$ Y/ j' i4 x! O) V        obj:=str_to_obj(Name);
- h" n( G' y( l5 g        obj.val:=?.StatNumIn;8 k# G2 T4 B1 R
        if m>1 then4 e, I: z' Y- J9 Q/ X
                Name:=sprint("OutRate_Line",m);- m+ u& [. x& |1 R2 H- m2 R
                obj:=str_to_obj(Name);
8 i9 z1 Z, w3 o# U$ N  s) M1 ?                obj.val:=n*100/OutPut_Line1;  t' n# A. L. r& R; G
        end;
# v) q7 `: Z3 e. r8 Tend;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。' v, ^) R. e2 G9 @
obj.val:=n*100/OutPut_Line1;
发表于 2014-9-5 09:28:02 | 显示全部楼层
这是教程实例   不知道怎么就是出错
发表于 2014-9-5 09:28:17 | 显示全部楼层
求大神指点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-2-19 06:51 , Processed in 0.012818 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表