设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2420|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is' m: G3 [! Y6 @5 [+ z  U3 l5 C
        m,n:integer;
4 |' d( C4 y3 B; ~) s        Name:string;
8 R$ w4 }  M( C) R! U  ~        obj:object;
* {6 y0 b% F( e4 Udo
- S, D' d/ t4 H% `; S0 `3 m, E3 N: y        m:=str_to_num(omit(?.Name,1,5));
. B( P. X5 s! q* C        Name:=sprint("Output_Line",m);
- e0 |9 G& j: e& |: Z$ q' l9 o        obj:=str_to_obj(Name);+ [: R- c9 r( _. ^/ H) q* S# M2 Y
        obj.val:=?.StatNumIn;
, }/ S3 W1 X5 N, k% L9 Z        if m>1 then, R! R) v  {3 C) v: Q2 Y- F$ u
                Name:=sprint("OutRate_Line",m);
( m4 E2 c) a) W0 M, {; a; c                obj:=str_to_obj(Name);! t  C% v) z& K* O, \' d
                obj.val:=n*100/OutPut_Line1;: L8 r  {7 i5 `- d' B
        end;
- d" R9 N3 O, Xend;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。* S) C0 X) A/ X/ H$ i3 i0 c) `4 f
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 05:55 , Processed in 0.014893 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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