本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 " C9 q& s; j8 p; Q' j3 d% m
! z# P3 @0 j8 `/ p+ Z3 k各位老师好!* c ?9 b' A! N* y% z3 V! o/ _! H
我在使用plant simulation时出现错误- j) E0 U5 W+ V6 ?8 ~+ p
源码如下" _* b6 [% q8 Z
- U; D8 ?$ e: B( s- |0 O: Fvar m,n :integer;" ]* \! _6 J5 \" k, `; F( z6 p& \) C
var Name :string;
6 o" F3 d; {1 D3 ~' `$ yvar Obj :object;7 T+ x/ q& l ~0 i# F) u, ]: [
9 u0 W6 M& e v) \* _3 | m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;0 O9 b b7 P8 P) {6 V! u1 ? r
Name := sprint ("OutPut_Line",m); --生产线名称! T+ A. N1 Y! E& d: R& B
Obj := str_to_obj(Name); --转换成对象变量# o; d& p8 m2 {2 c
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法4 p$ i# O1 M2 y6 n2 M8 `5 j/ X6 T1 y3 \
If m>1 then --第二条线要计算产出率6 a/ c2 v0 }7 [6 p
Name:=Sprint("OutPut_Line",m); --产出率* X+ b2 x/ S' K ~
Obj :=str_to_obj(Name); --转换成对象变量! v; @6 v2 l3 y' J
Obj.val := n*100/OutPut_Line1; --计算产出率
. x. i5 U+ y8 k4 N9 z2 \+ B+ p! X end;
2 L+ v2 U6 |3 l8 n# A. @" j5 E7 U) w& C- k5 p
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 ?: t, }- A8 O8 z' z3 l: m
例如Obj := str_to_obj(“coat”);
, |2 c Z* B: h0 `% e9 e6 X( K& Z |