设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 4088|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is* Z' j! }; q$ u+ E1 v  d8 y) B
        m,n:integer;4 L) ~( g  e, f
        Name:string;
* }; t- t7 J# s/ j5 Y, ]! [        obj:object;
! U- i1 N6 X6 P$ m" T9 P1 Ydo
3 U" Q' K$ {0 N! @6 g        m:=str_to_num(omit(?.Name,1,5));
! y7 p; \; _: `1 [        Name:=sprint("Output_Line",m);
1 P* N8 |  L4 T; |* P. T        obj:=str_to_obj(Name);
' ?1 S/ R9 _7 T$ |; |, t        obj.val:=?.StatNumIn;* z! ]* _# b! z: b
        if m>1 then! f: I6 |: L- D& {  {7 }
                Name:=sprint("OutRate_Line",m);# ^8 n& I7 R' e; v
                obj:=str_to_obj(Name);# `* s: M/ O' s2 F( n
                obj.val:=n*100/OutPut_Line1;* A& L1 R$ j+ J) B/ w8 v* a* U6 G
        end;
( F* ^& ~8 i) c8 z& yend;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。' Y3 z$ O8 Z& Z
obj.val:=n*100/OutPut_Line1;
发表于 2014-9-5 09:28:02 | 显示全部楼层
这是教程实例   不知道怎么就是出错
发表于 2014-9-5 09:28:17 | 显示全部楼层
求大神指点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-26 16:20 , Processed in 0.015173 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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