摘要：
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
向北方
阅读(3666)
评论(0)
推荐(0)
浙公网安备 33010602011771号