本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 + \+ G z( e) z: p
6 h5 K' b" ]$ A# ^: S% i, |
各位老师好!
" P# K1 R7 s. n' k8 Y8 q7 H 我在使用plant simulation时出现错误
% E* r4 S9 D& K' }$ N9 A源码如下
3 ^- h* u0 G8 O& r6 f$ q2 I' ?9 L% N, w9 R. }3 ?
var m,n :integer;
; y& ^ y! P8 ?( @var Name :string;1 j1 P% u' Q. Z% g2 R
var Obj :object;
/ `2 U a+ `. ?6 n) f3 d1 ?" u
2 O5 u7 m& h) M9 R1 }8 Z m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;' N' A' ]" x2 E( E
Name := sprint ("OutPut_Line",m); --生产线名称- N' V# [2 A$ E8 q6 x
Obj := str_to_obj(Name); --转换成对象变量
/ k# o+ d5 A5 |5 F: p Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法* r- y. u- H# {$ @8 D
If m>1 then --第二条线要计算产出率5 S7 P* _0 k0 k. {% _. X& j) g6 S
Name:=Sprint("OutPut_Line",m); --产出率2 h( v# z) }# c$ l
Obj :=str_to_obj(Name); --转换成对象变量
, S4 C! k+ M% ^8 A K9 d$ W Obj.val := n*100/OutPut_Line1; --计算产出率
3 I- s" \6 e9 b# Q0 V; E0 W; J end;
8 R) ` k d/ w" A: d# }5 N: u
, h5 G# Y9 X. F3 S. v% V; e经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
) N) M: C# [3 n4 @' ~, |9 D, o例如Obj := str_to_obj(“coat”); 4 z$ j, V3 M% [* {
|