设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 3964|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is6 l* J+ z  H6 P: |
        m,n:integer;4 v+ w% ~& |3 r: a
        Name:string;4 c2 P8 o; F& T4 c$ q
        obj:object;
1 g4 s4 K# Y+ d0 odo( x& x9 v1 M& M4 }$ c
        m:=str_to_num(omit(?.Name,1,5));
8 G* g( m7 Q) L2 E) G1 g5 k        Name:=sprint("Output_Line",m);
6 j2 P9 f$ S0 c        obj:=str_to_obj(Name);  q2 D0 o- P8 e
        obj.val:=?.StatNumIn;
! {) m0 m  n5 g+ K: F        if m>1 then# D& |# A0 w- L- ^( I4 g* [! S8 s! |
                Name:=sprint("OutRate_Line",m);, ], T4 Y& f! n( `+ d  x6 Y" ]( v
                obj:=str_to_obj(Name);
/ M, c9 F& G' B9 M; g# _/ U( a: R                obj.val:=n*100/OutPut_Line1;
& Z) f9 @5 s& r' I* M        end;8 V* W+ O' t. j7 u
end;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。
5 G, i/ O6 z" y' Iobj.val:=n*100/OutPut_Line1;
发表于 2014-9-5 09:28:02 | 显示全部楼层
这是教程实例   不知道怎么就是出错
发表于 2014-9-5 09:28:17 | 显示全部楼层
求大神指点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-6 13:17 , Processed in 0.013270 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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