本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 + \0 k. W, T5 J4 V" f9 o& T w9 X
. ^$ a6 h# R! K1 f* b( Z3 B
各位老师好!
" O! p9 h8 k+ ~8 f9 o- J9 C 我在使用plant simulation时出现错误) [/ V4 J; J2 k5 ]7 M0 \% u
源码如下
8 z# ]# F5 y& v$ z1 G+ D1 p$ q1 _" X8 a5 A4 P
var m,n :integer;: j* {4 i; w- `, ]2 c m5 i1 W6 Y- I
var Name :string;
; D A. @0 ?, d7 ?1 i" Q' cvar Obj :object;
& E: o y% b- B5 w/ l9 E$ t, U. \; J* K- Q* d1 _0 e o
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;) Z0 _' J4 N' b$ G; j$ p2 g
Name := sprint ("OutPut_Line",m); --生产线名称) N% \8 H2 m) U, A3 d8 D; X' @
Obj := str_to_obj(Name); --转换成对象变量2 e. E; V6 b2 v) H& r+ y) p: `& T5 u
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
7 `: N* l* \5 k1 u3 | If m>1 then --第二条线要计算产出率
2 L6 B, I5 e/ W* m% E Name:=Sprint("OutPut_Line",m); --产出率
& \% k' V) R# n) R0 c Obj :=str_to_obj(Name); --转换成对象变量
8 \! w2 _9 w6 r9 T Obj.val := n*100/OutPut_Line1; --计算产出率
- c+ I5 P6 U9 ?) x end;
4 s% j1 G9 X; I) ?% b
& G1 w b' k7 D# }. ~5 N9 V经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
0 ]8 w/ `& q5 J7 q. _1 J$ w7 P例如Obj := str_to_obj(“coat”);
) ^4 h, |" B* |: I% \ |