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 · 450 阅读 · 0 评论 -
一个Stream类,自己编写的限制大小的
{--------------------------------------------------------------------------------*单元:*日期:*作者---------------------------------------------------------------------------------}unit umemoryStream;inter原创 2007-04-28 22:58:00 · 406 阅读 · 0 评论