D delnut Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #1 怎样才能把shortint 或者 smallint的类型转成extended,谢谢。
W wind28 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-14 #3 可以吗！！SMALLINT好像是323768 而EXTENDED占十个字节！！
W weizhiqia Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-14 #5 可以先将shortint变量转换为字符变量，在通过val函数将字符变量转换为extended变量。代码如下： var i:shortint; j:extended; code:integer; s:string; begin i:=10; s:=inttostr(i); val(s,j,code); label1.Caption:=floattostr(j); end;
可以先将shortint变量转换为字符变量，在通过val函数将字符变量转换为extended变量。代码如下： var i:shortint; j:extended; code:integer; s:string; begin i:=10; s:=inttostr(i); val(s,j,code); label1.Caption:=floattostr(j); end;
D delnut Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-15 #6 直接就行，是我把指针搞错了。对了，让函数返回一个数列怎么处理啊？不好意思，想不出来，只能多问一下了。
易 易云飞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-16 #7 function F1（var mylist ：Tstringlist）： datatype begin 。。。 。。。 process your function code 。。。 result ：＝ return type end； main function to call your function var list ： Tstrings； begin list ：＝ TstringList。create； //to call F1（list）； end
function F1（var mylist ：Tstringlist）： datatype begin 。。。 。。。 process your function code 。。。 result ：＝ return type end； main function to call your function var list ： Tstrings； begin list ：＝ TstringList。create； //to call F1（list）； end
