本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
& ]7 i% S. i2 ~+ W' K2 I
% |7 ]# {8 e2 r6 }各位老师好!
?+ b9 }! [) `3 R 我在使用plant simulation时出现错误! H7 M: ]% N5 b+ s6 X# j
源码如下9 U" R8 x. _* _# ?0 k1 k: c
7 P) Q7 s# v+ q4 S% Avar m,n :integer;- ^. i( Y# W6 ?& Q4 \
var Name :string;
5 K! E6 X/ Q$ X% tvar Obj :object;+ r4 `! X6 F' y# g$ [
5 W; w, I" d- [& f- G! V m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;% t5 |" a3 H* W+ L- k ]
Name := sprint ("OutPut_Line",m); --生产线名称
$ g& p M! Z7 w8 f t- T' z+ P Obj := str_to_obj(Name); --转换成对象变量
8 e' Q0 m; ?* S; G: f! ~& [% B Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
( m" I" q3 e5 H |* O If m>1 then --第二条线要计算产出率
( g# \) U9 }" G6 S$ a9 E5 R) n Name:=Sprint("OutPut_Line",m); --产出率
' T# Q) h( y# d0 R% U, U$ g' Z" L Obj :=str_to_obj(Name); --转换成对象变量
: X: Z* y' `0 E* e. B" ^ Obj.val := n*100/OutPut_Line1; --计算产出率; Y( C) Y9 R6 {0 A6 \2 y
end;! }' `3 G% m) ], H8 I4 E
% e* A/ f$ L, n3 q: x0 i
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,2 I$ e0 w2 b% `2 D3 K- h5 s: c
例如Obj := str_to_obj(“coat”); + u- g' k2 j: v2 h
|