本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
# |/ A2 n2 F7 p, E- j: C# d7 F9 m- l. Z3 y2 {3 C
各位老师好!: |. n1 {8 j3 z$ n6 N4 q9 K+ [
我在使用plant simulation时出现错误
* r- L3 d" t5 a' C3 {1 f% `源码如下: `6 H& [5 z+ w6 K# d( B
4 l" e H& Q, z1 H: E3 D! \
var m,n :integer;
: @2 Z. b" p& w4 M W2 dvar Name :string;% }/ A2 r. m0 p6 A4 D& E- b
var Obj :object;. w0 D/ W; k5 j# X( B
2 Q+ w G9 X5 o! K m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;! R5 R# r% f: Y/ V( ~; j
Name := sprint ("OutPut_Line",m); --生产线名称/ ` F3 L( `" d+ d- V& s$ l
Obj := str_to_obj(Name); --转换成对象变量' k5 \4 p8 V9 a1 H$ J. T
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
) ^3 j1 Q7 @- b0 a If m>1 then --第二条线要计算产出率+ x; F6 K7 [* \- H1 w
Name:=Sprint("OutPut_Line",m); --产出率
5 c* f8 o% q) J Obj :=str_to_obj(Name); --转换成对象变量" n- g7 T- O5 N- I4 ]' v* n
Obj.val := n*100/OutPut_Line1; --计算产出率& V: e& s# v+ t# ` \6 j F' m
end;
2 [1 N- }- M4 S+ Q4 z) z
& N0 t$ U) d1 H6 ]$ H1 y经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
% v$ Z$ T. y. u' E例如Obj := str_to_obj(“coat”); & A; a, j' l+ _! d
|