本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
% K- `! O: |$ z/ R, ~8 y U
3 s* I3 d3 `* u. \各位老师好!- _0 {6 F4 c) `0 _% d( f+ f
我在使用plant simulation时出现错误
1 {& E8 C! t9 G' Y, _源码如下
% [9 V: m! W6 B8 _7 a% X# e, V2 F! X: }5 u3 o
var m,n :integer;4 ?7 _: x" f4 [ M
var Name :string;+ N+ v9 [2 f- k
var Obj :object;: ?% G' U; u H2 c* ^+ X' z
5 Y5 B3 f8 b( o' x) m" p
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;* K" D/ q1 A2 r9 G
Name := sprint ("OutPut_Line",m); --生产线名称
2 O2 d- q& U# [% \: B Obj := str_to_obj(Name); --转换成对象变量
* z2 g, z) b2 I( _, J6 s Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
7 B9 Q+ g2 N' _- P If m>1 then --第二条线要计算产出率
N4 l2 g1 {' N4 N Name:=Sprint("OutPut_Line",m); --产出率
. i) x- b6 \3 ]" _$ W! q- S Obj :=str_to_obj(Name); --转换成对象变量) q: z/ L8 @( Z' M8 Y
Obj.val := n*100/OutPut_Line1; --计算产出率
3 K0 M8 w5 F7 J- O m9 H end;
# ^; e( j2 g' `0 y4 o) s z$ c p0 `6 t" T. d3 K" N I0 D
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,; k5 n5 y( z1 Z( h
例如Obj := str_to_obj(“coat”); ) [" X6 t2 w: F' w
|