本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
4 I1 ?' u. J8 e: x' ^0 ~! a9 U6 Z* K: i; O+ s0 R
各位老师好!
: b7 Z9 s& p/ I% \ 我在使用plant simulation时出现错误+ o1 E4 r, g3 k- }
源码如下
9 X" s- ~# `+ g" w% O6 U9 ?+ Y: b/ }4 b. t" M' X
var m,n :integer;
' {7 [4 ]0 u; Nvar Name :string;, G2 P) Q8 L% c" l; M( D
var Obj :object;" I$ p$ ^2 k5 D* b4 d" i! P
' {3 d2 c7 U x* d. }# J
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;) q* v' ]' c+ Z# w4 S
Name := sprint ("OutPut_Line",m); --生产线名称
' z6 h* d: h+ v2 @% g Obj := str_to_obj(Name); --转换成对象变量
+ d' F' e. J$ Y2 M Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法3 I9 U- ^' l, a
If m>1 then --第二条线要计算产出率 C$ ?- Z9 K% k; b" D
Name:=Sprint("OutPut_Line",m); --产出率1 i8 t: a9 Y% E8 _/ S$ [
Obj :=str_to_obj(Name); --转换成对象变量1 ?0 u n& T& j/ h M+ m3 [
Obj.val := n*100/OutPut_Line1; --计算产出率+ b, E# n9 `4 [6 e
end;
# C$ K: C) m4 F9 f. b; \3 v8 z) Q9 u7 j" S- j6 V
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
0 {6 ?' `7 n- C" s& x& Q例如Obj := str_to_obj(“coat”); 5 i( y h# H5 M; _( M+ e1 @
|