本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
+ |! T9 {! g% w1 N" j% H
6 _5 @4 _ {% Y* ^各位老师好!
# L# M# ^' E9 T 我在使用plant simulation时出现错误- b! c- }5 P% Y
源码如下
M% |/ c- W* Z( a) z( |) p% |* T7 N9 x d2 R a
var m,n :integer;
' e8 N( G( b5 C/ {" H5 I6 h! }+ y. wvar Name :string;
7 G4 Y7 O/ d8 k4 G4 t8 ~var Obj :object;
, f% j3 d( L0 j9 }$ B9 [! X1 U) W% U6 a6 A5 a$ m
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;1 c0 C4 b2 K8 ~) Y
Name := sprint ("OutPut_Line",m); --生产线名称
- }# f% `( t/ n; |& J Obj := str_to_obj(Name); --转换成对象变量( T v) t/ c) T) y
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法1 S" G# R' g6 U4 D: a% V6 D
If m>1 then --第二条线要计算产出率
( w* G' G4 I2 y. s. e ]4 R Name:=Sprint("OutPut_Line",m); --产出率
) o+ B- I8 R( a( X# _! {2 c ` Obj :=str_to_obj(Name); --转换成对象变量
' w: B6 c, J- N$ B |! l$ ]) ?' k- m' l Obj.val := n*100/OutPut_Line1; --计算产出率
2 B& z- A$ W0 X end;
& _8 [" U) h$ b( S2 a$ [8 |1 U# X+ V( P+ x* E5 w8 w# J; e
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
, p. M7 P3 p5 P! M& a/ \. G3 q例如Obj := str_to_obj(“coat”); J% D( Q9 Z$ X0 i" |9 t
|