本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
7 \3 T0 s4 `" M
{" N+ q$ H3 r2 c0 ?' { f) F各位老师好!) u5 [5 {: k* D0 C2 B& s3 p$ ^+ q
我在使用plant simulation时出现错误" ^ Z( Z* K7 V9 H) o
源码如下
: C0 Z+ g5 Q) B# g3 C4 L% l1 ~3 ?8 f0 Y! ~' v: ]2 E* E0 Y- x5 S* p
var m,n :integer;
; ?6 p- ~$ Y4 B: V) |/ K% t5 vvar Name :string;) a) y" C& o9 Y
var Obj :object;
3 ^) I* t% M) E' ~. U$ v' f6 [7 T$ ~$ I6 ^( b' E; ]+ s
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
' G4 a# @6 s' h3 d: J$ x Name := sprint ("OutPut_Line",m); --生产线名称
7 Q% B: d1 x6 z; F! f7 Q2 J Obj := str_to_obj(Name); --转换成对象变量& L' u1 L. Y9 x3 [; D+ c
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
9 q+ g- X6 _; I; q+ b If m>1 then --第二条线要计算产出率
; @, l. `4 [8 U# T5 K Name:=Sprint("OutPut_Line",m); --产出率$ t1 O7 Q& Y) b, q& {" h" \+ }* T
Obj :=str_to_obj(Name); --转换成对象变量
8 t! H, P* {6 _% v( v Obj.val := n*100/OutPut_Line1; --计算产出率# e9 m8 I3 z5 F) \' ?+ k1 p
end;
4 s' h" `5 S. K+ d5 b) Q( C9 u0 ?& v; D' D
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
- c8 |) G1 c7 j6 `9 ^ ~例如Obj := str_to_obj(“coat”); 3 R; l( ]/ Y7 q _/ o
|