![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
DELPHI 开发
青年站直了别趴下
这个作者很懒,什么都没留下…
展开
-
一个提取身份证号生日的函数
function SfzztOBdayY(ss:string):string;var i,j :integer; f:string; aa:string;beginf:=- ; case length(ss) of 15 :begin i:=7 ; j:=12; while i begin原创 2007-04-09 20:36:00 · 444 阅读 · 0 评论 -
一个Stream类,自己编写的限制大小的
{--------------------------------------------------------------------------------*单元:*日期:*作者---------------------------------------------------------------------------------}unit umemoryStream;inter原创 2007-04-28 22:58:00 · 400 阅读 · 0 评论