摘要:
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
韩小花
阅读(2970)
评论(0)
推荐(0)
摘要:
ExtractFileDir 从文件名中获取目录名(文件不在根目录下时取得的值后没有“/”,在根目录时一样,都是盘符,例如“C:/”) ExtractFilePath 从文件名中获取路径名(文件不在根目录下时取得的值后有“/”,在根目录时一样,都是盘符,例如“C:/”) 函数的声明:function 阅读全文
posted @ 2019-11-07 09:20
韩小花
阅读(513)
评论(0)
推荐(0)

浙公网安备 33010602011771号