本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
; i4 `) Y% C/ C3 [0 F; M7 u; m. u. [$ ^2 ]! p6 v7 p$ W. @
各位老师好!0 u2 n/ w3 S$ t% @' j& Y) ^' n
我在使用plant simulation时出现错误
9 d$ Y) }& \! d$ G& G3 B" [源码如下
( Q. y! f- L1 p$ w9 ?0 D0 q6 `. q$ J' x
var m,n :integer;
( `' a8 n' a: s2 C6 Gvar Name :string;4 Z) ]9 ?& V7 U. ^! i# S
var Obj :object;) q% M1 t" g# g ^
5 _/ X& [: f$ l: \" u
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 \, B: |& }! n E/ L- x Name := sprint ("OutPut_Line",m); --生产线名称
( y; V1 ~; {$ f( o7 e6 e o! B Obj := str_to_obj(Name); --转换成对象变量9 x @7 b5 @1 Z. `3 U
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
& z ]& G: q" d* n1 E+ ? If m>1 then --第二条线要计算产出率' J; i7 ^, V* s- ?
Name:=Sprint("OutPut_Line",m); --产出率: J: U: E# K, X/ P, U3 J8 p. D
Obj :=str_to_obj(Name); --转换成对象变量 C5 C1 w1 Q6 I a7 H6 X. _
Obj.val := n*100/OutPut_Line1; --计算产出率0 h4 Y* c9 e6 c; G: n6 b9 b
end;! z) k5 A3 f& y! r7 t$ \/ I1 e
" v& Q: c! K" G# W d0 F经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,+ l7 n- u: b( u
例如Obj := str_to_obj(“coat”); 6 r2 B. s4 R: r% A) L
|