怎样取一个数值型字段的第三、四位的值? 一个数值型字段:2003010001。如何取他的第四位和第五位的值:01呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function proc(n: integer):integer;var I:Integer;begin I := n div 10000; result := I - (I div 100) * 100;end; 你是想取第五第六位吧,应该是copy(inttostr(2003010001),5,2) 为什么我编译不了exe程序? 请教一个TListView的自绘SubItem的问题 磁卡阅读器有串口的吗?哪位有编程经验,请提供产品型号和销售公司,谢谢! 如何把InterBase里面的内容备份到DBF文件中(或者是Excel文件中)? 请教delphi高手-------100分 谁有文件切割的代码?! 通过什么函数返回 关于针式打印机的问题 面向csdn大调查,,,请点击看详细内容(欢迎跟贴,人人有分) xpmenu属性drawmenubar!!! 我是新手!!!!!!! 数据库中的jpg的问题?写、读?
var
I:Integer;
begin
I := n div 10000;
result := I - (I div 100) * 100;
end;
copy(inttostr(2003010001),5,2)