本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! q7 ?, f1 {/ l" X# l& s1 o- P, c. f+ v4 Q# Q5 t2 E2 F
各位老师好!
4 C, r7 P8 I' h! T% c1 ] 我在使用plant simulation时出现错误4 C$ ~- _& y" u! x* u. }2 v' V
源码如下
0 j# Z# K1 K7 ]3 Q
5 i% U1 c! ]" n9 F% V0 gvar m,n :integer;
1 S" C) n+ ^; D* P+ H; M6 J* Jvar Name :string; C9 o$ B- q1 K' I1 ?$ G6 |
var Obj :object;. w+ [& l B U0 f+ M
# `# Y1 V. \( m; J! c( r ` m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;9 G2 A \7 |1 i
Name := sprint ("OutPut_Line",m); --生产线名称
2 {+ y8 ~: Q( v, q- F0 l- J Obj := str_to_obj(Name); --转换成对象变量
3 `+ k, f: P5 H0 ?) d Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
6 @: v P3 ~) V2 { \) N! R If m>1 then --第二条线要计算产出率* p/ p/ E$ c8 [& W+ y. e4 ?
Name:=Sprint("OutPut_Line",m); --产出率. S& A9 k4 |) D1 f1 \
Obj :=str_to_obj(Name); --转换成对象变量# z4 I; g% v2 s, }7 o( Z- f3 x
Obj.val := n*100/OutPut_Line1; --计算产出率7 x3 `4 S7 X o0 o! J5 r* ?1 J. B/ }
end;" n, ^% Y. Q3 d5 R
7 c/ k- n+ Y' e2 w经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行, p& T [9 u8 \ D! L4 H1 B
例如Obj := str_to_obj(“coat”);
3 w' Y, I3 L0 A2 B |