2018年4月23日
加载log文件
摘要： procedure Jslog(szLogText:string);var pMyFile : TextFile;begin Assignfile(pMyFile, 'log.txt'); if FileExists('log.txt') then Append(pMyFile) else ReWr 阅读全文
posted @ 2018-04-23 13:57 快乐的正能量 阅读(360) 评论(0) 推荐(0)
ExtractStrings字符串截取
摘要： //分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings 阅读全文
posted @ 2018-04-23 09:59 快乐的正能量 阅读(244) 评论(0) 推荐(0)