本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
# r1 g" g) n. T
1 J2 W w: H! [ U( ~各位老师好!$ Z8 |6 `& J8 g% y) S& H
我在使用plant simulation时出现错误; ` ~: Q7 q& s$ I0 E$ F
源码如下3 M' T& o( T. b6 j5 S: d/ H
: k2 w0 { q) h. b I) \) Tvar m,n :integer;
1 `# }" l7 n e* w$ Fvar Name :string;; {+ X2 H0 u5 w' o0 q3 O& \ v) c
var Obj :object;
( o- P' y% o) G9 ^( a {* P2 d* t4 `# }3 [7 a
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 ^# ]1 }$ _1 M7 \% { g4 ^, c+ E! Q Name := sprint ("OutPut_Line",m); --生产线名称4 C& H* L! R0 d e2 A8 A
Obj := str_to_obj(Name); --转换成对象变量5 Q" M8 ?- C8 e: E1 m, r1 g
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
6 g& K8 `5 G1 M+ U6 I- L If m>1 then --第二条线要计算产出率" D- J9 N% j [3 C
Name:=Sprint("OutPut_Line",m); --产出率
- @% `$ r7 O @, J! J Obj :=str_to_obj(Name); --转换成对象变量+ E1 l7 l$ I) j% z! }
Obj.val := n*100/OutPut_Line1; --计算产出率
4 l. H" w3 m7 V! l1 }/ | end;, b2 t3 s, r' q) o
o" x" d1 Q7 L3 Y经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
+ d2 ?+ a# f+ m0 V _2 k例如Obj := str_to_obj(“coat”); % ~" P) H5 H% b+ W( ~( c
|