本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
* B+ G& S1 u! i- B2 T" D6 j
3 E: j/ l+ z/ C7 _各位老师好!
6 j( c, p" W! ^! U/ B+ ] 我在使用plant simulation时出现错误
* I# l9 m3 T, \源码如下; N* ~- o, Z* h A4 R: k, o6 Q+ K
' r5 M, a8 x5 [
var m,n :integer; m0 h" j" k9 }+ g0 p2 M# U
var Name :string;
) T! I* S- s( j+ B8 |var Obj :object;2 b. ?8 Q e2 x1 P5 h5 `/ A
) w, v* l: G+ n2 U m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;7 j2 K Y& }& b& _' p1 I
Name := sprint ("OutPut_Line",m); --生产线名称
4 M* Y' W0 |; S X, ^3 t! `* o Obj := str_to_obj(Name); --转换成对象变量
! F* }4 y. r( P5 ~ Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法0 B0 P b7 i/ ?7 _/ i l z' o# {3 V. Y
If m>1 then --第二条线要计算产出率1 Y2 d( V: K+ a8 d1 g
Name:=Sprint("OutPut_Line",m); --产出率
3 S$ p# |; P p5 q, W0 C* q* `/ c' b Obj :=str_to_obj(Name); --转换成对象变量, ~' s z+ i1 h
Obj.val := n*100/OutPut_Line1; --计算产出率
; C0 q& b0 t" L0 d! z end;
3 S3 \! u+ {" }2 D# A0 d: Z
4 Z# c# E, {( M. s B: Q经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
% S1 ]1 R, T. l. P% i1 L! J例如Obj := str_to_obj(“coat”);
, v N: p: n$ e! B3 P$ I) x |