本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 0 _2 T Z; ^4 R, \2 f0 B
6 y; h7 s# |1 h3 r+ m( ~! y; b/ X
各位老师好!: ~2 `, V5 E) u' y% f* u
我在使用plant simulation时出现错误* |! N2 [4 Z( v8 }% K" {. A) V0 Y
源码如下
! f$ G4 q) Y1 v, @' o! B
2 D7 m3 M/ c$ {( I' _9 C0 ~; { w( Svar m,n :integer;+ Y& p" e* g* ?: M7 x/ _
var Name :string;2 S6 J; C X2 ~. ^% z2 I; W0 Z: h' K+ g( T
var Obj :object;
. ^& Q4 U& @% d0 s- y
( Y- q0 L$ Q1 @8 h" R m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
: I7 K+ p/ h7 G' h. c Name := sprint ("OutPut_Line",m); --生产线名称4 N$ N; J5 z' m; R; J) j4 m9 Q
Obj := str_to_obj(Name); --转换成对象变量2 a7 k$ Z& M% p/ J- ~) Y; \2 R3 h
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
% i; j! H! n9 t If m>1 then --第二条线要计算产出率1 }. g* D2 G; y5 N1 `9 q
Name:=Sprint("OutPut_Line",m); --产出率
h O e: A3 r* u Obj :=str_to_obj(Name); --转换成对象变量
' F$ |4 ]' Y/ @ Obj.val := n*100/OutPut_Line1; --计算产出率( M5 Q8 v7 p: N7 c4 P5 w5 }3 h" @
end;
9 \" J4 m+ U7 e, E
! \7 O. p4 T. {经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,- x! I `4 b# Z$ M) V# Q
例如Obj := str_to_obj(“coat”);
( f2 p& B- x* {% I4 F |