本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! `, {! I5 z: |( g2 s0 r
* _7 ^" i$ i; a3 Y6 R; r) y& C/ Y各位老师好!5 c% M# |/ ?! R& Z. x9 e
我在使用plant simulation时出现错误
3 N% y5 e# f& ^8 j源码如下
( {- _ A; ]1 z; a" N, g0 O' j w- @( L! B+ j
var m,n :integer;2 u. \ k4 Z% S1 ?) |$ @. P2 h: q
var Name :string;- ]+ c' Y0 |, i; f* S B; |
var Obj :object;
4 ?& R8 j- M Y1 w7 F8 n. p
8 O8 D* [& |' l9 [5 O: t' U& m m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
4 K$ J7 \2 Y2 A8 r5 v- h Name := sprint ("OutPut_Line",m); --生产线名称
- E/ L5 W, d$ {# j( N- t. V d' l ~ Obj := str_to_obj(Name); --转换成对象变量5 T ~; T- ^9 Z; ^8 C" G# g9 v
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
% y$ g: Y% S5 f If m>1 then --第二条线要计算产出率
, F0 k0 a4 U3 c8 {# Z$ | Name:=Sprint("OutPut_Line",m); --产出率, c$ @0 z T0 F) K
Obj :=str_to_obj(Name); --转换成对象变量
! \& _0 y1 T; h( Q$ {" J Obj.val := n*100/OutPut_Line1; --计算产出率
2 ^$ i3 R. C- H) N& \ end;2 p, G$ x7 a" j" l) X
" [' z! \* Z! q8 t! w2 E& J
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
" N' n l$ c, P/ T( {6 l) C例如Obj := str_to_obj(“coat”); , K! A2 m/ ^% U* S7 {, ]
|