| 
					
				 | 
			
			
				@@ -17,11 +17,11 @@ function CreateBlankFile(S: string): Boolean; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// <summary>
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// 自动为已存在文件名加数字
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// </summary>
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-function AutoRenameFileName(AFile: string): string;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+function AutoChangeFileName(AFile: string): string;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// <summary>
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// 自动替换文件名中的非法字符为
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// </summary>
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-procedure ReplaceInvalidFileNameChars(var FileName: string; AChar: Char = '_');
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+procedure ChangeInvalidFileNameChars(var FileName: string; AChar: Char = '_');
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// <summary>
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 /// 格式化秒为时间,冒号分割
 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -57,7 +57,7 @@ begin 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   end;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 end;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-function AutoRenameFileName(AFile: string): string;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+function AutoChangeFileName(AFile: string): string;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 var
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   I: Integer;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   sPath, sExt: string;
 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -72,7 +72,7 @@ begin 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   end;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 end;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-procedure ReplaceInvalidFileNameChars(var FileName: string; AChar: Char);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+procedure ChangeInvalidFileNameChars(var FileName: string; AChar: Char);
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 var
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   PFileName: PChar;
 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   FileNameLen: Integer;
 
			 |