本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ; ?" E" l3 R. h7 c6 t% @2 u9 V
0 ?. D4 e( F) O) `) [2 s, D
各位老师好!
# e( s; |3 x& k 我在使用plant simulation时出现错误
, f) J: U5 N; x! M! Y源码如下
" }& N# D: @: H. }; @1 y f
) D9 r6 [" M$ k3 p5 l7 u4 Bvar m,n :integer;/ z3 ^% _: ^ l( U3 J0 U; M# m' `: ~
var Name :string;' M j4 c# C- v0 j' e& n! ?" w* ?7 F
var Obj :object;" N1 E3 N6 I' e2 R$ U) p1 \0 n
/ s* G) Z& t+ o* { m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;, ~( m1 Q. M. T
Name := sprint ("OutPut_Line",m); --生产线名称
' N% J, P; T3 i# Y2 i8 c Obj := str_to_obj(Name); --转换成对象变量
- F, T0 |$ F4 P/ d$ z: o Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法8 n7 D+ X$ T+ A* b- y
If m>1 then --第二条线要计算产出率: [- M* U, p6 T% ?# [# ^0 o; V
Name:=Sprint("OutPut_Line",m); --产出率# E& p" W+ ~3 c: P
Obj :=str_to_obj(Name); --转换成对象变量
) {6 n8 i2 g H4 L; }% a Obj.val := n*100/OutPut_Line1; --计算产出率$ Z6 j5 p: N* f$ k+ R
end;9 M' b8 ^; G8 }$ ?6 ^
; [' Y+ d$ j8 B5 m4 Y& Y' j; D& w经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,$ T6 Q, f2 w. h0 o" ?+ K- ?! p
例如Obj := str_to_obj(“coat”);
. X' Q1 y- v7 ] z; ` |