本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
# F" T- \5 J( |( ?/ q+ `7 r8 u; w6 ]) t/ A! Y) w, M) Q5 C
各位老师好!. a/ P$ ?/ Z* e- A4 B
我在使用plant simulation时出现错误6 q$ T! U5 [- o$ n0 t! ]
源码如下
' O Y* t$ B. G M9 L% F9 R) ^3 _6 [" y5 M* Q, f) |4 a2 F8 S
var m,n :integer;; R, z# s* ~' ^) A, h* B# {% a
var Name :string;- K) v/ I6 S* ~# _8 r* i- w* Z; A
var Obj :object;
9 N) a0 v0 `; m( Z9 S+ S7 ?' q$ j5 B" F( p
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
4 ?4 K7 w+ s" w' \ Name := sprint ("OutPut_Line",m); --生产线名称
) {( R I; n7 `$ I' U6 \ Obj := str_to_obj(Name); --转换成对象变量
/ {% f( {6 r. ^3 a; p Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法. j( V( ~! R( r
If m>1 then --第二条线要计算产出率
/ a! o* Z) R7 D2 ?" v Name:=Sprint("OutPut_Line",m); --产出率
- e9 ~" U% G9 _4 E0 H6 u1 v Obj :=str_to_obj(Name); --转换成对象变量. P" ^! f& p+ [# c
Obj.val := n*100/OutPut_Line1; --计算产出率
7 r5 H9 s$ E& V4 ^ end;6 j6 y" M3 U: \3 S- _
; H" W1 M" A% C; b0 K6 \1 i- p, O, H经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
6 l7 H# u8 d- [! n; b例如Obj := str_to_obj(“coat”);
( n6 c" M$ H& y5 L; Z |