本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
) A: ?5 }2 L) s1 e& v' N, v8 w$ r W' y* a
各位老师好!
M( ^9 H% E4 Z# z8 p# N; M 我在使用plant simulation时出现错误 p6 j2 b! Q* {+ b; _# T# k( U' y" A
源码如下
( Y# [/ S4 s' j7 o; o; O$ s2 h& Y( |
1 Q- Q, H) _1 v7 \2 {* [/ j: S: ?var m,n :integer;
' v6 @9 y) L: X8 g8 D* Nvar Name :string;8 J6 [% `$ l' q/ k C9 q3 J
var Obj :object;* |% K0 J3 t" E, f9 a
4 p& j2 S3 N+ D9 M7 e m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
* p0 ?7 ]8 Q& `2 P* s Name := sprint ("OutPut_Line",m); --生产线名称* W& I: _- C0 d- a/ f7 I
Obj := str_to_obj(Name); --转换成对象变量
v& a; B) @3 A( m, x- e, A) { S4 C Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法7 [6 l1 R( T) J. g& W
If m>1 then --第二条线要计算产出率
& o! H+ |- ]2 L9 K6 j: O K Name:=Sprint("OutPut_Line",m); --产出率
0 I; I4 o; p9 R Obj :=str_to_obj(Name); --转换成对象变量+ Z0 O0 b5 ?4 J1 {
Obj.val := n*100/OutPut_Line1; --计算产出率
+ e4 m) H% }. `5 o( X; @2 l end;
, X: l: [( ?+ p) p g
% v. E2 ]' @2 h: o7 x# Y. M0 s经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,6 p& e; y% @. Q" }6 ]9 d
例如Obj := str_to_obj(“coat”);
7 T9 t2 @* \( I. Y |