本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
% S, `6 W% G2 a
! Z( y4 a* [1 D% C1 j/ V" h9 ?' I各位老师好!
; X8 W. v8 O3 k- T3 S3 F, e5 n5 ` 我在使用plant simulation时出现错误8 }4 l0 r& F" [7 D9 A
源码如下% M! l7 C* T: X7 V( U: }; a
' L" Y) |7 c/ kvar m,n :integer;
4 j! |% Y/ e4 B. C5 z- \var Name :string;1 b0 O- d7 W" n( p( S
var Obj :object;
I1 W# b. c" E1 X, f/ B* u9 h& x1 F3 y' p, a$ q
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
' n# {4 ]/ H4 T9 q2 M% M Name := sprint ("OutPut_Line",m); --生产线名称
! |& B0 `/ x: u4 z0 @* {8 W Obj := str_to_obj(Name); --转换成对象变量% K6 c% j2 I' g# V8 T$ k
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
8 b! w& v4 q, {- f If m>1 then --第二条线要计算产出率
" r9 A1 i9 b* _$ k. G Name:=Sprint("OutPut_Line",m); --产出率; q3 U0 r- [- Q
Obj :=str_to_obj(Name); --转换成对象变量
' u9 V& U' j: L# i1 Z) D Obj.val := n*100/OutPut_Line1; --计算产出率
" y9 R% ?' A# M" r% q end;7 a1 v7 p" F9 d3 Q. C @
* D/ m+ E; G) `: ~7 D经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 I5 \) p6 t* J: n9 \; n
例如Obj := str_to_obj(“coat”);
3 q4 G) v9 o. @& O |