本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
- ]! R1 I! j3 C# H# P- q* v: w" p
: Y" W7 ^: U& s1 ^- G1 `& S# o各位老师好!
0 w4 ^* G* |0 B5 k 我在使用plant simulation时出现错误 S. ?3 [6 t+ [! R- v7 Q
源码如下: C$ m! i: J! y6 O! {
( D- W1 l9 g' \8 h+ jvar m,n :integer;/ K9 H6 x7 x" W- B) ]. S2 r2 B
var Name :string;
* H- Q$ K" }) nvar Obj :object;) b O" S8 }1 ]
3 i* W, X4 f* K3 L- H
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;3 _# [( K8 I5 y3 x; r
Name := sprint ("OutPut_Line",m); --生产线名称: j) O7 \* r" G; o
Obj := str_to_obj(Name); --转换成对象变量
! V8 t1 T' z! [6 o0 j) q+ f Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
+ k ?4 G% \, K3 e If m>1 then --第二条线要计算产出率
' Q6 n6 ]' J& g1 A# r8 Y! | Name:=Sprint("OutPut_Line",m); --产出率" d& Q- |" v0 e. C; R1 ?+ W3 n
Obj :=str_to_obj(Name); --转换成对象变量+ }0 N# |0 T& f# H! B; z
Obj.val := n*100/OutPut_Line1; --计算产出率0 y3 X E: x1 |! Z$ X# S0 V
end;
; ?" i1 p, s' M T S! K' E- Z2 ^( i- g! Q6 u" D
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
0 |3 Z3 @: V+ d9 `9 z例如Obj := str_to_obj(“coat”);
& b/ g8 P9 u/ g* l4 Z$ G% s [. V |