本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 4 \5 x* T" g6 F) c3 g
. @3 A1 q+ ]- t' Z: G
各位老师好!
* R7 m, j! `4 d( s2 F 我在使用plant simulation时出现错误4 t# b9 E' i7 |# ]. e+ @; |
源码如下
& a1 N+ d2 m& {1 V- U) o% @9 I' K/ ]1 N5 C* Z4 F* F6 J8 O( y% H
var m,n :integer;7 X# L' W+ E( P& S* L. Q
var Name :string;, E4 i1 A$ R& j3 E. a& A
var Obj :object;
3 X9 q. T6 e* e( |5 n
7 P- }- T' H+ w! g% h m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;- T4 z0 J8 h! ^9 q4 c
Name := sprint ("OutPut_Line",m); --生产线名称) g+ S$ M7 u9 _
Obj := str_to_obj(Name); --转换成对象变量: J4 a0 m3 e4 o8 w+ e0 F, f
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
. S. W! X$ a: M& x If m>1 then --第二条线要计算产出率2 l" l0 }% K5 b# B) S0 a6 a. c
Name:=Sprint("OutPut_Line",m); --产出率$ O/ e' Q& [ ~& R M
Obj :=str_to_obj(Name); --转换成对象变量0 Z$ k5 O% N4 G2 S3 `0 m
Obj.val := n*100/OutPut_Line1; --计算产出率
( j3 B' l3 }+ \0 Y end;
( N k9 H D% L- O8 H a6 _# C% Q
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
* Q1 L: Q$ {9 j8 {4 s& V例如Obj := str_to_obj(“coat”); ! A( y( d( h, {. n3 ~& ]
|