本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 M5 @; C" Z- W1 g; @4 r; p
) v! K' |5 q! R& \3 h4 j, g8 `各位老师好!
4 {' s4 N. ~$ ^5 r, I/ _2 | 我在使用plant simulation时出现错误
8 Z) \* z: q5 p8 x- e3 m& w6 e: k l源码如下
' k+ t8 u. R+ w( A9 N5 x6 x: U. _* X% E
( u# |6 o* ?* {var m,n :integer;
! @& M: }' i* T4 f; y6 C! Dvar Name :string;
. B u5 I9 ]9 k& d0 Cvar Obj :object;9 [, T7 h1 k2 V! L' a9 R7 Q7 ?( v
! Q+ W3 J; R4 @& m1 i m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
# i* o, g q+ n Name := sprint ("OutPut_Line",m); --生产线名称2 l; |4 ~' B8 Q2 Z6 s3 c
Obj := str_to_obj(Name); --转换成对象变量
6 t( u+ @0 _4 N% X Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
9 \" `% ^8 P, ?; W If m>1 then --第二条线要计算产出率
- s8 Y$ r4 T/ s+ l) k Name:=Sprint("OutPut_Line",m); --产出率7 O/ `: d. ]' O
Obj :=str_to_obj(Name); --转换成对象变量2 A5 Y+ i+ T4 n7 b! b2 M
Obj.val := n*100/OutPut_Line1; --计算产出率+ s' C J: M" y( u/ I3 H
end;9 i/ e2 o$ a; u! u9 x
' N- G, y" c% R" P经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
, D% j7 b4 m' M, o+ U% T3 E例如Obj := str_to_obj(“coat”);
$ o& ` X; ~3 j4 q! e8 I8 s( [ |