本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 * [3 r4 f4 J* x
4 H6 O" G7 }5 `& i! y8 ?- h
各位老师好!
! d8 F6 \. C I( t/ U/ r. i 我在使用plant simulation时出现错误 U2 O6 G C- m( _8 z3 L9 y, c5 b5 c
源码如下2 O+ f) f) b5 ]
! K" I4 I+ v+ M% e# ~8 t
var m,n :integer;" }. _8 O4 W$ x2 f, H
var Name :string;0 U4 }# P( M6 e
var Obj :object;
5 q" R1 c3 \# k0 \' p& U: y
5 {- U* U5 ~4 U) v2 a m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
- `# w5 q/ Z. R) ]+ I+ _& T Name := sprint ("OutPut_Line",m); --生产线名称7 J& D% K- Q$ m6 U C2 a% E
Obj := str_to_obj(Name); --转换成对象变量
' Q0 U$ {' o4 W+ A: ] Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
/ X4 C1 L k* M: E- `6 y If m>1 then --第二条线要计算产出率; b# _, j9 I( X5 `. I
Name:=Sprint("OutPut_Line",m); --产出率
: X. b+ t7 O/ A6 c Obj :=str_to_obj(Name); --转换成对象变量 `$ n$ k0 s' ]9 v" R8 @' m
Obj.val := n*100/OutPut_Line1; --计算产出率' ]) x. n# d5 P8 d5 G% V
end;
3 ~* o8 ^' \/ \/ |+ ^+ L+ v9 w( g
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
3 [' ~3 R3 k, \9 Q/ D* F例如Obj := str_to_obj(“coat”); 3 e* u7 y. n* M6 g6 ^6 e; k2 B0 }4 U
|