本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 & X0 h+ o% l( J; b8 K/ h* g
$ J; a9 R% v7 Q! u$ p8 W
各位老师好!
* N7 |, [$ W; z/ `. q1 H 我在使用plant simulation时出现错误, |! C$ W0 P. q8 y0 L, B
源码如下. V) o! k! e( v+ v3 S# T+ Z
" o# ? }7 W4 L1 S7 L6 }/ ?( e7 B9 tvar m,n :integer;" h, \: s9 X" D) C
var Name :string;
% Z3 @6 z- e+ R$ [! Ivar Obj :object;
: `: F2 I- k9 B8 z$ s+ E' m
% s7 u4 x( ?" F+ G; F, y4 t8 h m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
- g* ]* ?8 n8 j- u4 i: K Name := sprint ("OutPut_Line",m); --生产线名称4 Y* q& {. X3 t, \ d. F4 ?7 t
Obj := str_to_obj(Name); --转换成对象变量5 Y- Q z& _4 H- F6 V
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法( x0 Z6 i4 W3 e1 h" U$ o9 j
If m>1 then --第二条线要计算产出率- E, M( d( V* G2 ]
Name:=Sprint("OutPut_Line",m); --产出率
/ |) F N0 w+ ]% T2 j; N/ [# R, w Obj :=str_to_obj(Name); --转换成对象变量
8 z& B5 x& M8 T/ v Obj.val := n*100/OutPut_Line1; --计算产出率
3 C* p o$ R+ D( X end;
! b. J" a, p3 U6 }/ x$ V7 H1 C+ v! S, i- }" s* y T& ?' I" @
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,6 D! F! K+ O9 A
例如Obj := str_to_obj(“coat”);
/ {, N( w& ~0 s! r. k5 f |