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