本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 K. v1 b) `5 c+ [, t) a5 \% h& t9 l: o! ^$ b3 @2 j
各位老师好!
; T; ^4 D2 d- J% ^1 g- @ 我在使用plant simulation时出现错误
+ K. B+ S( F) t; |, N源码如下3 o. `+ G" w' V/ n# t/ r1 {
6 K# q6 H1 T( H% {
var m,n :integer;
3 |# D' O. O1 M& Fvar Name :string;
/ @* V2 Q r: hvar Obj :object;
; F6 W) k$ x0 e% w4 k. K) b) z2 H6 b# b& c& o! v. N: {# d
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
/ t: T. u/ X' }6 A3 k1 f2 g5 k Name := sprint ("OutPut_Line",m); --生产线名称+ D. O& i, U. l i% T1 S8 r
Obj := str_to_obj(Name); --转换成对象变量. m7 W3 s$ h' C# }. A6 Q
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法" W V$ t1 S) x' ^7 ^
If m>1 then --第二条线要计算产出率
/ |, u+ m/ V$ b: P# X1 i, `1 N Name:=Sprint("OutPut_Line",m); --产出率
1 T& J0 Q! O y: S Obj :=str_to_obj(Name); --转换成对象变量1 K. y! B! |5 S, b3 d
Obj.val := n*100/OutPut_Line1; --计算产出率+ r* G8 S7 v4 [
end;
+ i7 \! \' N; s% h0 O1 B, g' o/ ?8 l* {* \: h+ b) o
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
" p" D& j( a: [ a, B例如Obj := str_to_obj(“coat”); + t+ x2 V1 V8 k! c8 ?( W0 E2 w$ c
|