设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2429|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is
4 ]  T) v7 g0 J6 Q5 B        m,n:integer;
6 Z/ `1 Q4 ]9 ?* K6 E        Name:string;, M# [( W# `5 [3 H5 m
        obj:object;
  L: d3 `, x6 L- A! |$ C* k  Ido0 H- `4 n. l+ f& `: ]- b1 a
        m:=str_to_num(omit(?.Name,1,5));
+ G$ G! d0 C6 ~3 P% `( l- D) n9 y9 R        Name:=sprint("Output_Line",m);
1 U% Z+ j4 @, D- U% o0 k# [        obj:=str_to_obj(Name);& `! Z- X, f6 H! B$ t, _' ]2 G: @
        obj.val:=?.StatNumIn;! C! h; Q5 A, x3 V) m. M: N) Y8 ]
        if m>1 then9 ?9 K# g: p: B2 l: f* _
                Name:=sprint("OutRate_Line",m);. r0 y- ^+ P+ x' j
                obj:=str_to_obj(Name);
# x' K. ]4 i4 |1 n5 W) \                obj.val:=n*100/OutPut_Line1;
0 ?, d' V) |. m        end;
& Z4 o6 }' m/ d5 j; a9 K; Q" }2 E# Yend;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。  x: T9 u0 j. O. T( \7 m
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 07:11 , Processed in 0.015847 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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