本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 - o/ E! h7 C. F' F! v
% V) {+ v7 i4 d* `0 T
各位老师好!
- r0 E1 g' S# i$ e 我在使用plant simulation时出现错误6 Q- U. J& [6 D. M% `7 n+ k, _# C
源码如下. {8 ~. w' C0 k
+ p) ]! a2 W8 {
var m,n :integer;
3 F& q, }- R/ l9 s, fvar Name :string;4 `- M2 G/ x- Y" u4 R8 ?
var Obj :object;
5 G; b. c( ?7 z" z' R+ N, _+ B: ^ x! U9 s1 n- T$ ?
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
" I, L* W5 p- f$ u Name := sprint ("OutPut_Line",m); --生产线名称
$ F! i& ~" a3 m' q. e Obj := str_to_obj(Name); --转换成对象变量
& e2 o$ N0 A, p J" ~, \* i Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
# ~" r- L7 x o* j( V If m>1 then --第二条线要计算产出率
8 ?* W, k6 o ]/ \+ O Name:=Sprint("OutPut_Line",m); --产出率& M& u" l- b, C9 N8 r. ^2 f) e9 j
Obj :=str_to_obj(Name); --转换成对象变量$ g2 x. J/ M6 e; V* q3 d, d
Obj.val := n*100/OutPut_Line1; --计算产出率
7 l- R7 D2 e1 W2 v6 m1 y e end;4 _7 R( M( a) f5 z- i' p; j# \
1 a. }9 ~, R, R4 C7 K经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
0 P d: j f% T; \8 @; [例如Obj := str_to_obj(“coat”); 3 h/ b# v6 n P2 f
|