本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
t( f: g/ x) N4 @; i3 r3 u2 X1 B0 T5 _) S1 B9 H1 K; T9 l" ~
各位老师好!
6 B! G3 h' O. y$ R8 K 我在使用plant simulation时出现错误- N" n8 ^* u2 C y5 c/ C
源码如下
; n- p& ~% ^) y3 Q+ i; E' S6 R
# a; }2 }) v6 T- jvar m,n :integer;
& ]: c" E- ] j/ F- a# Kvar Name :string;, a* @2 e) M* ?0 X
var Obj :object;2 W% m: s6 Q) ~8 H; e W k
" h+ M# ^& k! s8 K, z7 e# f0 b2 q
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;( ?1 o- l) U2 ]7 x! ]
Name := sprint ("OutPut_Line",m); --生产线名称3 x# t9 U8 {6 \ P8 s5 F7 L( u
Obj := str_to_obj(Name); --转换成对象变量' Y0 H( U( y9 F: n. U x
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法6 s7 n t! t% `% |2 V
If m>1 then --第二条线要计算产出率
8 H. W' N$ t" o4 [3 Y Name:=Sprint("OutPut_Line",m); --产出率
' h m \2 K9 b; t d Obj :=str_to_obj(Name); --转换成对象变量5 c+ A' K. |/ R) Z6 T& C% ^
Obj.val := n*100/OutPut_Line1; --计算产出率
" e& g8 t# p: j. c* f8 ?: ? end;
0 _8 r9 s- Y1 r# Z
+ T) r7 U5 C: q9 w8 j5 J经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,' a( B5 U- X8 |) A f# ~
例如Obj := str_to_obj(“coat”);
: Z& e+ e7 `% r8 P3 u |