FMT D DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++
*************** Beginning of data *********************
0001.00 D Str1 S 10A Inz('ZhangSan')
0002.00 D P1 S 15P 2 Inz(8792.36)
0003.00 D S1 S 15S 2 Inz(8792.36)
0004.00 D date1 S D
0005.00 D int1 S 5I 0 Inz(268)
0006.00 *
0007.00 /free
0008.00
0009.00 date1=%date();
0010.00
0011.00 Dsply ('size of Str1 = ' + %Char(%Size(Str1)));
0012.00 Dsply ('len of Str1 = ' + %Char(%Len(Str1)));
0013.00
0014.00 Dsply ('size of P1 = ' + %Char(%Size(P1 )));
0015.00 Dsply ('len of Str1 = ' + %Char(%Len(P1 )));
0016.00
0017.00 Dsply ('size of S1 = ' + %Char(%Size(S1 )));
0018.00 Dsply ('len of S1 = ' + %Char(%Len(S1 )));
0019.00
0020.00 Dsply ('size of date1= ' + %Char(%Size(date1)));
0021.00 Dsply ('len of date1= ' + %Char(%Len(date1)));
0022.00
0023.00 Dsply ('size of int1 = ' + %Char(%Size(int1 )));
0024.00 Dsply ('len of int1 = ' + %Char(%Len(int1 )));
0025.00
0026.00 Eval *inlr=*on;
0027.00 Return;
0028.00 /end-free
****************** End of data ********************
结果如下:
DSPLY size of Str1 = 10
DSPLY len of Str1 = 10
DSPLY size of P1 = 8
DSPLY len of Str1 = 15
DSPLY size of Str1 = 10
DSPLY len of Str1 = 10
DSPLY size of P1 = 8
DSPLY len of Str1 = 15
DSPLY size of S1 = 15
DSPLY len of S1 = 15
DSPLY size of date1= 10
DSPLY len of date1= 10
DSPLY size of int1 = 2
DSPLY len of int1 = 5
%len取的就是定义变量时的长度
%Size取的是变量实际占用内存的长度,byte为单位
阅读(1152) | 评论(0) | 转发(0) |