本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 : F+ s3 o+ S0 d6 z 
 
- Y8 G- U: b5 t各位老师好! 
: \& c: b1 A8 w) O2 m& s4 u  我在使用plant simulation时出现错误! w1 N# Q4 }# P1 T 
源码如下- |& n& D9 Z' i- E 
 
6 R& }) e5 t5 N' Xvar        m,n  :integer;) o" n  X  n+ u8 Z 
var        Name :string; 
+ o& h6 ?( D1 h; Z# d7 j- z- kvar        Obj  :object;2 \. o9 ?+ s/ y& t- ~ 
 
9 m% U7 \/ l" G; Z) m4 q) t5 @: l        m := str_to_num (omit("darian1",1,5));  --先取Drain*后面的数字,在转换成整型数据; 
0 p- L! C8 V8 f) X# w) ]" H; B        Name := sprint ("OutPut_Line",m);    --生产线名称 
. B' G; m3 Z  p: t        Obj := str_to_obj(Name);              --转换成对象变量( E. n0 s5 [2 b0 L' J( S2 ? 
        Obj.val := ?.StatNumIn;              -- ?代指当前调用Method的物流对象,该Method想做成通用的方法8 H* Y' t8 J+ g% D1 I8 B 
        If m>1 then                          --第二条线要计算产出率  w! ?+ N+ O. N) k" Y 
                Name:=Sprint("OutPut_Line",m);   --产出率 
" A7 Q1 R/ m; E& ~$ Y                Obj :=str_to_obj(Name);          --转换成对象变量+ T1 H$ D& b, @* p 
                Obj.val := n*100/OutPut_Line1;   --计算产出率 
- z0 j/ _* V1 q( [% m- I" |  H        end; 
% g: f+ ?8 T# G$ K3 e% G 
: i. p- |2 V& K5 [- k  ?经调试错误出现在Obj := str_to_obj(Name);      显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行, 
8 u1 E, F$ @  k5 r5 X( B例如Obj := str_to_obj(“coat”);  $ R1 W3 `6 J# a5 A 
 |