设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 3963|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is
, d8 L& c" B0 L% S( h5 W9 S        m,n:integer;
' I. N# a' A4 Q7 C, b# \        Name:string;+ I5 X# c0 S7 D+ a" W6 {! d
        obj:object;
+ f) E5 _9 p- edo
5 k) `9 H1 T1 s, _3 K6 w        m:=str_to_num(omit(?.Name,1,5));+ H' x- ?9 x! |4 W& A$ W" B
        Name:=sprint("Output_Line",m);
  U& H9 Z& u6 w- c$ O        obj:=str_to_obj(Name);
" U! U. H$ _" q) \        obj.val:=?.StatNumIn;  p) M! h5 v: s9 y  C
        if m>1 then
/ E/ g' w7 V2 S% b+ b9 U' B8 f                Name:=sprint("OutRate_Line",m);
, q" ]$ t3 F0 b6 a/ @- R0 c* u                obj:=str_to_obj(Name);
+ D/ O8 l; [9 w& s                obj.val:=n*100/OutPut_Line1;0 L. R+ K3 D0 S8 }+ u4 t& [
        end;
. W: R2 v& R& X: `3 H( w/ ?end;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。
" e* o' o( I2 a, S3 o4 t. Tobj.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 12:11 , Processed in 0.014608 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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