本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
3 A* f6 N2 j6 N6 U( z
S5 s) t4 c8 j) b2 }各位老师好!( ~ B' Q. B9 H% T* ?7 w# @
我在使用plant simulation时出现错误
# ?2 B, }) }( ?6 Y; b- x* B源码如下
- m# Z7 B0 F( S8 Y) F) ]+ r0 v' P: T7 t0 V. @! @
var m,n :integer;
& X# E8 v$ @; q Z4 v* pvar Name :string;
( G% l' a& a. f. L$ g( N( |9 }) xvar Obj :object;- ` w& ^4 u' B+ x! z
; d9 N& ~- _( f6 B: _. J
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;7 l5 g+ k. E! N2 Z% Q. y' N
Name := sprint ("OutPut_Line",m); --生产线名称+ x1 Z6 c! E# r9 u5 H7 T
Obj := str_to_obj(Name); --转换成对象变量% ~$ g% ~- E3 q+ A
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
' a8 n. l/ x* \ If m>1 then --第二条线要计算产出率6 z. g" s* q+ C2 Z. U
Name:=Sprint("OutPut_Line",m); --产出率 U4 B# j i4 U
Obj :=str_to_obj(Name); --转换成对象变量- B( K. T2 g& M0 ^. }
Obj.val := n*100/OutPut_Line1; --计算产出率
2 ?( B9 F# z0 e" _# j end;
; \5 _ Q X2 P' q
* Z# F ]+ Q3 S$ q9 P1 f7 M经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
9 _3 Q* M$ i( e- G t8 G2 z例如Obj := str_to_obj(“coat”);
" a' I* ?# J, n' Z8 c |