本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
; \" ^% J2 |: _: N2 C% J# S
H; j: p( Y: J& S+ H8 m各位老师好!/ B" Q7 L7 i! k! @$ d% k. @' B8 M( q
我在使用plant simulation时出现错误
. E4 F2 }/ E3 Y1 e) r源码如下5 j$ o! _+ P1 d
0 W a0 g! }" ~8 u% F4 z- I
var m,n :integer;
, ?9 ]: Q& s3 r! a) H _var Name :string;
0 W% N( v( p: ]0 Avar Obj :object;! W1 T6 r: q. M
: C3 F$ C: l4 K- z5 v) F3 x7 S
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;- [9 e$ X: ]8 p, I7 p
Name := sprint ("OutPut_Line",m); --生产线名称
$ { M; j6 T, c; [- f Obj := str_to_obj(Name); --转换成对象变量3 N7 ~/ D% q; m( T( C2 H
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
" Y9 f Y! A3 N z; V* l/ G If m>1 then --第二条线要计算产出率
# a! c# T" U% S9 W( d! q! l2 F Name:=Sprint("OutPut_Line",m); --产出率/ L' ~, V* E# L7 y
Obj :=str_to_obj(Name); --转换成对象变量
- L' L) P2 U2 |( H; A Obj.val := n*100/OutPut_Line1; --计算产出率
, H3 y( U4 L+ S4 h: j, F# D end;
% W+ D6 B. F1 T3 Z4 t m1 f
7 Z* [% |( u: G2 _7 f4 D, P; H$ ]/ I! _2 @经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
' i8 i0 @6 H! Y* ~+ n例如Obj := str_to_obj(“coat”); 5 h( Z+ X7 n2 G+ Q$ T3 e
|