本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 2 O: h' l4 g' x; k
& A+ o) \/ o5 g% S0 K* j9 Z; m# i
各位老师好!- T# _4 V( d8 ?4 h
我在使用plant simulation时出现错误* V) e4 j2 B+ e. w) H ^9 c; @- T& e
源码如下
1 |: K& t+ {5 W; w3 B- H0 C' A+ I4 y* }* u* J/ i1 v
var m,n :integer;
( ?) r0 d8 S9 Wvar Name :string;& h* V u* A8 {! c- D2 ^
var Obj :object;* |2 J; k; _# e; u* X [
, S% H# c4 h' ?
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
/ }4 o5 T" G' v/ K$ { Name := sprint ("OutPut_Line",m); --生产线名称4 l' x/ o- K$ ~- ~: C) d- Q
Obj := str_to_obj(Name); --转换成对象变量
- m r A+ ~- P1 }. l Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
! B9 u! l/ M, }# G0 Z9 b If m>1 then --第二条线要计算产出率1 J! }/ N, r; \$ ~
Name:=Sprint("OutPut_Line",m); --产出率
' h; @( X/ \' }# x/ A2 Z Obj :=str_to_obj(Name); --转换成对象变量8 ?( u7 {3 j6 B/ X3 N1 _
Obj.val := n*100/OutPut_Line1; --计算产出率
' Z6 x! ^7 Y0 j1 T% ~8 {& x end;2 M# l$ z2 ?# q+ W4 V4 Z$ W9 O
# G- t I& u' b8 s- t8 r
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
3 i" M/ m$ e% J! d0 `/ X( ~* c例如Obj := str_to_obj(“coat”);
2 R; l; I" O! d9 V |