本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 + Z$ @' t; Y2 d- V
* _- t5 Z7 \. K# J各位老师好!: a8 \5 c; p1 i0 d4 _
我在使用plant simulation时出现错误
& g1 v! @9 C3 n4 a; L1 {. a h- \源码如下 K$ O; q1 `! R$ _; K
& X6 R8 X. q1 V# z) n& ?% n0 Q' A
var m,n :integer;4 o7 e! O6 w6 e9 n* x+ e3 H0 g
var Name :string;
3 X( e1 d2 `* D0 |) F! wvar Obj :object;
7 }; d4 r+ M! s# b( E, v0 S; s( W$ E1 W2 L
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
+ N$ g/ k5 p7 I Name := sprint ("OutPut_Line",m); --生产线名称
" |- d5 `' j x. ~* B( u% E6 n Obj := str_to_obj(Name); --转换成对象变量; |8 }8 S8 o0 d, s' ~
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
* ~) u6 v2 Q5 k5 C2 D# M If m>1 then --第二条线要计算产出率
' m/ C! `$ @! M+ g3 F Name:=Sprint("OutPut_Line",m); --产出率; B: D0 I# y9 U( j) o
Obj :=str_to_obj(Name); --转换成对象变量
$ [% K3 F# L: P6 d3 p3 ^0 ^/ U8 ?9 o Obj.val := n*100/OutPut_Line1; --计算产出率
2 r$ a) Q5 C( l, D+ C3 a" V# G end;
) w; o4 T2 ]4 N, ^' N% k
- c, H+ u3 Y3 O7 Z- |经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,% G2 i0 C' `! M Z
例如Obj := str_to_obj(“coat”); ) d7 q& g6 _1 h
|