本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 - @! Y/ I0 o0 T8 e
6 T& k0 m; D% c/ u
各位老师好!
" N' b. p* A% Q+ ?7 h 我在使用plant simulation时出现错误4 V& h5 ~" l0 M/ I+ D3 o+ O
源码如下% u3 x0 o' G" m. E/ w
' H( L' I/ o/ `; o p
var m,n :integer;9 D0 M: ~8 G' c6 C% D
var Name :string;6 z/ i4 E$ f6 O
var Obj :object;$ T' }! r( K5 }; \8 o2 L
1 f' J4 ?, F1 |4 ~8 y2 q0 o( e
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;. v7 q$ [1 ~6 V0 Q/ o
Name := sprint ("OutPut_Line",m); --生产线名称6 ^6 ?* e, E2 O: p/ A$ y6 x
Obj := str_to_obj(Name); --转换成对象变量
$ A: @1 ?+ n- x a& ^ Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法- `8 Y: M) l7 R. j$ n2 s
If m>1 then --第二条线要计算产出率
; W6 X6 A; i r! o" ^ Name:=Sprint("OutPut_Line",m); --产出率! C* z, V" K6 m: I
Obj :=str_to_obj(Name); --转换成对象变量+ _ }. r: b- g7 E* q) D! T
Obj.val := n*100/OutPut_Line1; --计算产出率
" Q. q6 ]' y% `& z6 M end;
& z! G* p* b7 R- W: f' R L/ M& _! P3 x' \ X* P& t
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
) q' ^& u2 W, ], S/ z( a) I: Q, i H3 F例如Obj := str_to_obj(“coat”); ; [7 U/ D$ a/ x6 M9 ~
|