本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ) Z! D0 t9 j: S8 v
/ {6 b) `4 ]/ u& U( H8 g各位老师好!
7 k" }0 g/ V5 s9 f9 H 我在使用plant simulation时出现错误5 r6 P1 {$ g3 {0 d7 ?4 c
源码如下
( g8 \- w) Q6 e, L) P- ^, g2 ^1 k$ b* J
var m,n :integer;# Z# i' U1 l6 B* P4 H
var Name :string;& V& n/ }2 Q' ^9 a. o
var Obj :object;
8 @% N0 K# X7 i) d0 s
" b" ~, Y- z5 ?* X9 D$ z m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;% H$ `! u; c) R" r4 d( A' `, N7 j) d
Name := sprint ("OutPut_Line",m); --生产线名称
0 g; `8 q: V. K6 t Q) R Obj := str_to_obj(Name); --转换成对象变量/ i$ k! p- Z7 z% Q2 L! b
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
S+ @- a: a( q E- c If m>1 then --第二条线要计算产出率) W7 f7 m9 |! r0 r
Name:=Sprint("OutPut_Line",m); --产出率
7 G: L9 i" z# O* m6 x% s# j" F& A! l Obj :=str_to_obj(Name); --转换成对象变量5 ? [* b( b+ K! h' J8 p0 m
Obj.val := n*100/OutPut_Line1; --计算产出率
1 s$ x: f% B% {( p end;+ \6 `8 B" `) ?. O4 E9 @! i% j% k
7 a, R) v# [( }6 z经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
" j1 w M6 D! } e例如Obj := str_to_obj(“coat”);
( E3 o) f ]4 U( Z |