本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 , v0 Z$ V1 Y( r2 I
' A6 o* w: [7 K6 Q- a各位老师好!
/ M6 F1 I$ E2 s1 Q0 s: N 我在使用plant simulation时出现错误
6 j0 e5 n7 W1 {- a源码如下
( R& Q4 r4 k. }$ l, n
. C% g3 P: h( s0 e. Jvar m,n :integer;# Q K; K$ v9 d0 e7 Y T7 Z4 N
var Name :string;- V$ @# u6 S) C
var Obj :object;
; K+ |; w7 a8 A' P( Z: }1 x4 S$ q5 |+ @+ i% Z# f8 j
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;( r( ~* e+ m2 N/ |1 h
Name := sprint ("OutPut_Line",m); --生产线名称9 a1 O) C/ V$ P. z
Obj := str_to_obj(Name); --转换成对象变量
0 {5 R5 M8 ~3 t N6 _8 q7 f7 ~ Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
1 B/ O7 `8 ~1 l" N5 B, d6 s If m>1 then --第二条线要计算产出率
6 O1 t3 `2 _0 {4 a$ i e Name:=Sprint("OutPut_Line",m); --产出率9 C. R: n1 }, a
Obj :=str_to_obj(Name); --转换成对象变量$ M3 K; c# w+ M1 j9 z1 b5 _
Obj.val := n*100/OutPut_Line1; --计算产出率: [0 `/ b7 i8 C' t' I
end;) `; u* T/ @) w1 i8 [+ b" g A( x
6 U5 q0 Q2 Q% h! s9 P! L
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,( b$ |( ^# O# [+ h/ i, i7 P
例如Obj := str_to_obj(“coat”);
+ A" c3 }2 O& V/ R& q d |