本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑  
' K- C9 D6 u+ U4 W6 r# K 
. U' s/ {( H# B& R' W& V6 R! A各位老师好! 
7 k' L( \4 Q8 c) H  我在使用plant simulation时出现错误+ A; a8 ^/ k1 h3 Q5 z 
源码如下9 i! A% @7 F' E7 f# Z 
 
6 F- o# ?2 o0 u) Jvar        m,n  :integer; 
6 `- d4 H' P1 [# Dvar        Name :string; 
& p2 J6 v) r/ i9 `2 Fvar        Obj  :object; 
0 {  m7 E$ H: p. o. P% ?/ N( m7 s, [4 H# x! x. Z% v" `8 \4 E+ k 
        m := str_to_num (omit("darian1",1,5));  --先取Drain*后面的数字,在转换成整型数据; 
% m* C: p; m4 Q7 D# W        Name := sprint ("OutPut_Line",m);    --生产线名称 
2 i" s- l+ b* h, o8 K+ s        Obj := str_to_obj(Name);              --转换成对象变量7 ^+ l; O, u7 @4 F2 y7 Y: x; J0 }* n5 E 
        Obj.val := ?.StatNumIn;              -- ?代指当前调用Method的物流对象,该Method想做成通用的方法 
) y8 j& _; L2 r5 [( i        If m>1 then                          --第二条线要计算产出率2 U& k. W& _6 z, n2 ] 
                Name:=Sprint("OutPut_Line",m);   --产出率 
; v3 Z( V% g* ^: D                Obj :=str_to_obj(Name);          --转换成对象变量! C; P9 ?; ]  h  B 
                Obj.val := n*100/OutPut_Line1;   --计算产出率 
6 l( d3 }, I  l6 Q$ q2 f. |* c        end;" R$ K, y) b& p 
 
5 T2 R+ o" ^- d( G8 l经调试错误出现在Obj := str_to_obj(Name);      显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行, 
  X8 v8 J' I. B5 F$ e! ~$ Y例如Obj := str_to_obj(“coat”);   
* J- ^$ v2 H' y( \# V3 t |