本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 N* T1 g# \6 p% A* ^9 c+ R, g0 j h% N2 f
各位老师好!) {) N& k: l* i; k* q9 |" O
我在使用plant simulation时出现错误 s8 ^/ v# f/ c, D- F
源码如下, [+ W- g% P3 _) z* t
* o9 \/ r5 s) X
var m,n :integer;
( s' P ^1 ?3 ^7 yvar Name :string;
1 R) z' Q0 D+ ?4 Q. g+ C4 F! Avar Obj :object;$ K8 @% t$ d( O+ e( t8 u7 e
0 q9 W9 @* Q5 V m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;$ Y/ Y* E) _5 J6 J, D& s8 E* s
Name := sprint ("OutPut_Line",m); --生产线名称
. Y$ |* g: K% v* k( T2 n Obj := str_to_obj(Name); --转换成对象变量+ a) I1 q! Q d$ u% v% R. M3 V# l
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
& R& E) {% `& u' {0 u3 h5 t If m>1 then --第二条线要计算产出率0 \0 C3 X+ C6 I+ [
Name:=Sprint("OutPut_Line",m); --产出率
2 w1 B# m! t# d$ C/ M Obj :=str_to_obj(Name); --转换成对象变量
& ]/ X' D+ x, W: c0 b Obj.val := n*100/OutPut_Line1; --计算产出率; [3 x; Z* S( ~
end;
2 i/ J. V2 e' ^0 L* e6 ?$ ^: I
( d6 v0 e# E7 ~, S7 }" O经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
+ \. ^$ I+ ]; T) W例如Obj := str_to_obj(“coat”); ! c. v, b: u/ B, z' X
|