----赖格英-----

记忆不好了，记录工作中的点点滴滴....

:: :: :: ::

公告

2016年11月17日

摘要： procedure TForm23.Button4Click(Sender: TObject); var pstr:Pchar; mestr,Str1:string; FS:TFilestream; meint,PoStr,I,LenStr:integer; Fpos:Int64; TT,IsDay:Boolean; Liststr:TStringList; begin if not Sel... 阅读全文

posted @ 2016-11-17 16:33 向北方阅读(3640) 评论(0) 推荐(0) 编辑