本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
0 \' A4 m( m" r- u: N9 k/ w! r0 Y: y( H* o
各位老师好!
# D4 k- m r2 t* ` 我在使用plant simulation时出现错误# A6 U# |/ O, W7 s% i! C0 Q! b
源码如下; \( ~0 i9 F; w
) v" C1 O" g, S" n9 ]var m,n :integer;
, M2 i3 \7 k4 s; G. Nvar Name :string;
2 j( Z2 e) k: _. Avar Obj :object;: d3 P( F: |- ?( r! Q/ L, B/ c
9 }1 L" w* o' J# M m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;2 r& L; |8 m# T7 C$ J
Name := sprint ("OutPut_Line",m); --生产线名称
/ Z0 V( n; Q- E" B& s$ a Obj := str_to_obj(Name); --转换成对象变量" h8 W% y+ \, y
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
: g1 v0 B0 ^, u If m>1 then --第二条线要计算产出率
3 S6 Q' `/ W& y- _ Name:=Sprint("OutPut_Line",m); --产出率
) D# {( e K, | Obj :=str_to_obj(Name); --转换成对象变量
; Y t! ]* s. [3 C, j4 O9 ?4 P5 q/ E Obj.val := n*100/OutPut_Line1; --计算产出率4 j6 o% u }/ c5 |$ D
end;
8 D! b, d3 e4 Z; B: Y' y+ J7 f" |& U
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
' `1 _8 ]: p7 l: m) e, j例如Obj := str_to_obj(“coat”); 2 V4 I- y) T9 z6 [
|