本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
# v! V3 Q; q' U
O1 l+ E+ z( O6 O& M9 c各位老师好!
8 W$ N( n8 p7 o( G. d 我在使用plant simulation时出现错误
: }$ v0 u1 |) V5 p- Z4 _源码如下
1 ]3 }' k3 i( }6 u1 I
9 M% h$ m" @5 K% ovar m,n :integer;
/ a/ g3 i0 T, ?2 f- C( rvar Name :string;
& `+ V0 J* a( h$ D+ v* [var Obj :object;7 y4 Y" @1 b% g! ~- Z: L
. f6 ]; S' x! z, i- ~0 X" M
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
$ q6 K3 ^/ j. j) x* F Name := sprint ("OutPut_Line",m); --生产线名称, A# Z2 i9 T8 C V/ n
Obj := str_to_obj(Name); --转换成对象变量
% M- l8 G8 g7 x' s3 q8 Y6 i7 D( n Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法7 _9 k3 |1 v6 j+ ^+ ?
If m>1 then --第二条线要计算产出率
1 f6 t) @: F; ` Name:=Sprint("OutPut_Line",m); --产出率2 r' J: c; ~ k. B
Obj :=str_to_obj(Name); --转换成对象变量
# o3 v9 V( g9 a" `6 x, D+ B Obj.val := n*100/OutPut_Line1; --计算产出率
% Y0 N4 O. v1 f' T end;
8 b8 q0 n* L% [
- t1 _5 B) O) R: E& H- e( `% S经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,: j& o1 `2 V, n- N2 v9 l8 m
例如Obj := str_to_obj(“coat”); 7 ]: ]: V$ \' D' u& d8 _0 j0 H
|