本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
( W, N* B9 D( ?2 Q) k) @% h5 R8 u I
各位老师好!
" E( ~9 X. N0 A7 h- S- I 我在使用plant simulation时出现错误
+ u8 b) x% M$ W, X7 v/ X源码如下
, O7 K1 p* A6 ?' ^! ?" H
; M; r: ~9 I! ^ C1 kvar m,n :integer;- T+ I/ }$ H* n& a
var Name :string;
5 u! y2 E% P6 p9 G2 A3 W9 |var Obj :object;6 ~7 C2 R7 u: i1 {+ c
* o0 J, C, i* D1 |$ W/ Y" r) ]
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;8 D( O" P' H3 j; `+ d
Name := sprint ("OutPut_Line",m); --生产线名称
- _! P& O$ G) n L Obj := str_to_obj(Name); --转换成对象变量" `# u9 o! ^! y6 K1 l
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
- U8 g8 E$ u. _, E; ~4 i If m>1 then --第二条线要计算产出率
2 b! N8 p D) d7 u/ q7 B8 i Name:=Sprint("OutPut_Line",m); --产出率
( ^9 h& c, s& T% L Obj :=str_to_obj(Name); --转换成对象变量
+ P0 \* Z# S- b" g Obj.val := n*100/OutPut_Line1; --计算产出率5 r, t' A$ f* b1 H. Z6 |
end;# ]* k8 {/ J. p4 v: L3 W
* I) {" {7 v3 d/ ^/ u7 h% J经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
: f I# C/ `3 M" m+ M例如Obj := str_to_obj(“coat”); / ~5 p. f* {; j1 A6 Q5 {5 ?
|