本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 7 d' B( R$ C0 p* }2 H; `
4 H; H+ ]4 M3 L% J7 x9 X
各位老师好!7 E9 B1 s' a! ^- X$ w# P0 y3 [
我在使用plant simulation时出现错误, @6 E, O" D3 w! t1 t0 v# ?
源码如下
' b3 {! O' N. n7 w4 t7 A6 ]% g$ J, L I" Z0 Y
var m,n :integer;1 Z8 N* ?/ p. ?: x5 D7 R. |/ I/ M
var Name :string;
* ~) L: G" Z' b t* P. g! h( H7 Hvar Obj :object;, \4 _& ^: I% S* e: I
. l( D, H2 ~2 k; J7 ?) E4 z m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
+ m$ }( A% o$ U4 F Name := sprint ("OutPut_Line",m); --生产线名称
4 T H4 s, I/ J7 ]7 k! F, J/ g m# I Obj := str_to_obj(Name); --转换成对象变量
6 s1 H$ x: k1 V5 E5 F Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法 S$ y/ }4 W. Y# [, g7 T& s5 \. r
If m>1 then --第二条线要计算产出率
W7 n. `- Z7 }' {; d; W: O Name:=Sprint("OutPut_Line",m); --产出率
6 D8 \2 Z4 G- | Obj :=str_to_obj(Name); --转换成对象变量
: Q6 C% M* V. o- F5 y Obj.val := n*100/OutPut_Line1; --计算产出率+ n* \+ }: P0 t: t, o% \: w
end;! A r0 i! f7 d/ E
% w1 B L0 }, {/ O9 r, V经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,- }7 z5 L T0 \% I3 I
例如Obj := str_to_obj(“coat”);
- d" J$ J% b# }& H' [ F4 h |