本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
$ O v, V5 v* U' T. _3 t
; \& k/ E! x; b; r1 n: x8 a; w各位老师好!
9 ]0 t. G. `2 r- [; V" V( [! s 我在使用plant simulation时出现错误
( d3 q3 w2 j2 v) {7 S3 J2 S7 ]" y, r6 D源码如下
( R7 i I! `8 e- _8 I1 k, B" V# L, Q( T
var m,n :integer;2 x+ H1 O5 s% l" V( P8 B
var Name :string;) g$ m6 f( D, v6 n; D* G6 z
var Obj :object;
* j! A- u0 {+ H+ i) F& p I2 _9 Z3 b9 a$ A# ?7 `/ m
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
' C3 m1 |$ l# X" d Name := sprint ("OutPut_Line",m); --生产线名称* [* }1 Q5 t8 H+ J5 b/ n/ X. {" q# q9 X$ j
Obj := str_to_obj(Name); --转换成对象变量/ ^' n. k% ?0 X9 _: I* I
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
) B) V& k3 |, S If m>1 then --第二条线要计算产出率& x, J* h q0 t
Name:=Sprint("OutPut_Line",m); --产出率3 {% |: |. P: F1 }
Obj :=str_to_obj(Name); --转换成对象变量
* P6 s1 ^' m" @3 ` Obj.val := n*100/OutPut_Line1; --计算产出率5 I6 @- X# |( w) r2 M0 P$ [+ v
end;
! f1 q% [5 K- V( S; v6 v, H$ B! s( i1 L) i) B: K
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
$ E4 b! v! ^. d; y7 ~9 m/ R+ |. M例如Obj := str_to_obj(“coat”);
3 f6 g+ A2 r- Z, m. b" u |