本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ) _1 s5 ?$ u! v5 w
/ j0 N! `1 W/ D2 m; D
各位老师好!5 W* c s1 R! K& z3 U) b
我在使用plant simulation时出现错误6 f; n& B8 E( G
源码如下
, U6 O, h( C. Q* Y, A8 T) n# J3 D+ g4 S) w! ?5 x, ~7 W
var m,n :integer;/ z/ L1 l' a) C. H, X+ ~- ~5 I; W
var Name :string;, B1 R6 d# G7 \$ w8 Q9 H4 j& d6 o
var Obj :object;4 K! e$ c6 f! ^' j) p
( J2 j# j$ \% b4 z' R) B
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;1 {6 ]2 G1 ^4 V! p+ U
Name := sprint ("OutPut_Line",m); --生产线名称
0 P. |1 J2 O% a Obj := str_to_obj(Name); --转换成对象变量) v6 O6 r7 ^% _) k. T/ ^ A
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法& [, G2 o( a- I3 r+ v
If m>1 then --第二条线要计算产出率
1 ~! q! w3 w$ |9 s/ ]) \, ? Name:=Sprint("OutPut_Line",m); --产出率
3 A/ }. @ ]& G- X Obj :=str_to_obj(Name); --转换成对象变量
9 K/ y! ^2 \( e" S, {' b Obj.val := n*100/OutPut_Line1; --计算产出率
0 }! V$ \0 y9 k H$ H2 q7 g" z end;
9 j8 p: f# y) W) Y* m `# ^( j( W' \$ Q: p. \" s, V
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,: v5 G/ [9 t7 J/ ^" W3 u
例如Obj := str_to_obj(“coat”); 6 w3 k& a$ D1 T6 z- H" x0 J" b
|