摘要: procedure TForm1.SaveLog(sFlag:string;MSG:string);var QF1:Textfile; 声明文本文件类型 Qfiletmp,sPath:string;begin try sPath :=ExtractFileDir(ParamStr(0))+'\Saj 阅读全文
posted @ 2019-11-07 11:51 韩小花 阅读(2841) 评论(0) 推荐(0) 编辑
摘要: ExtractFileDir 从文件名中获取目录名(文件不在根目录下时取得的值后没有“/”,在根目录时一样,都是盘符,例如“C:/”) ExtractFilePath 从文件名中获取路径名(文件不在根目录下时取得的值后有“/”,在根目录时一样,都是盘符,例如“C:/”) 函数的声明:function 阅读全文
posted @ 2019-11-07 09:20 韩小花 阅读(476) 评论(0) 推荐(0) 编辑