设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2428|回复: 3

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

  [复制链接]
发表于 2014-4-20 19:54:43 | 显示全部楼层 |阅读模式
is: y; E) [+ A" b/ K2 |6 r4 a3 G
        m,n:integer;
1 L2 N9 h3 d, P3 O, \2 k        Name:string;* [$ _+ Z  \0 J4 P* z0 h
        obj:object;
& z$ C$ m# P! P) hdo
, [. M' K' `2 l6 z& j" S4 c        m:=str_to_num(omit(?.Name,1,5));3 Z" {* v2 ~5 [5 g+ P" ^
        Name:=sprint("Output_Line",m);0 B8 {) N* z9 J* s& P' M8 ?2 q2 g! v
        obj:=str_to_obj(Name);9 _  \5 H* S- J% z5 y. g- Z  w5 [
        obj.val:=?.StatNumIn;$ @3 J. ]: v$ m- n& t2 w" }. o& Q
        if m>1 then
3 G  I% n: H1 @: R( v                Name:=sprint("OutRate_Line",m);* a) Z6 j" x- Y  w& q
                obj:=str_to_obj(Name);
2 ], ]2 D2 s9 C4 r" r                obj.val:=n*100/OutPut_Line1;2 w6 X3 x) H6 B4 D0 i2 ]2 T
        end;
) C* N+ X( R( z& w, N" Aend;
发表于 2014-4-20 20:55:13 | 显示全部楼层
不知道你的问题是什么?问题可能是最后一句吧,整除可能有问题吧。
! l+ h" p+ ~0 c. A' z9 ?; wobj.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:05 , Processed in 0.015444 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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