设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4162|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is" x  V, r1 T0 X3 o. t: l
        m,n:integer;
, x. z! H7 t0 C& |, e; _        Name:string;& J, x2 y% }* N7 y0 K& O) a9 `' q
        obj:object;/ ~8 U, P* Y3 Z
do
5 q. j9 [3 H& `& }        m:=str_to_num(omit(?.Name,1,5));7 V  p/ E; C# ]2 Z3 T9 G! k
        Name:=sprint("Output_Line",m);
! t# X, s5 c9 K( }        obj:=str_to_obj(Name);
. n  H5 Q  O1 v6 D- W2 Q$ k- _  R        obj.val:=?.StatNumIn;
$ I8 [: ]$ T0 @4 s        if m>1 then
3 _6 v- T( ?  C7 T8 z; S                Name:=sprint("OutRate_Line",m);
. h; e; F; I: @# l" L( q4 |/ V                obj:=str_to_obj(Name);
6 v* I) D; w% \( x; d                obj.val:=n*100/OutPut_Line1;) Y+ ?+ P9 T0 n' F! |6 ?
        end;2 O& [, _( ]$ j. ]  w0 W* c
end;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。
- }* e8 r  A1 {2 }5 e( o# D) Jobj.val:=n*100/OutPut_Line1;
发表于 2014-9-5 09:28:02 | 显示全部楼层
这是教程实例   不知道怎么就是出错
发表于 2014-9-5 09:28:17 | 显示全部楼层
求大神指点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-20 18:23 , Processed in 0.017064 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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