Commit: 41a6fee8507972f153072846b4d25b5ac237b0d8 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 41a6fee8507972f153072846b4d25b5ac237b0d8 (tree)
• Time: 2006-05-23 23:51:26
• Author: h677 <h677>
• Commiter: h677

Log Message

デフォルトのファイルをコピーして残して置くように変更

Change Summary

• modified: InputAssistDataModule.pas

Incremental Difference

--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -3,7 +3,7 @@ unit InputAssistDataModule;
 interface
 
 uses
-  SysUtils, Classes;
+  SysUtils, Classes, Windows;
 
 type
   TResistWord = class;
@@ -118,7 +118,9 @@ begin
 	try
 		// iniƒtƒ@ƒCƒ‹‚ª–³‚¯‚ê‚΁AƒfƒtƒHƒ‹ƒg‚ðƒŠƒl[ƒ€‚·‚é
 		if not FileExists(FilePath) then begin
-			RenameFile(ChangeFileExt(FilePath, '.default'), FilePath);
+			CopyFile(
+					PChar(ChangeFileExt(FilePath, '.default')),
+					PChar(FilePath), True);
 		end;
 
 		// ƒtƒ@ƒCƒ‹‚Ì‘¶Ý‚ðŠm”F
@@ -160,7 +162,7 @@ var
 begin
 	if FileExists(FilePath) then begin
 		try
-			DeleteFile(FilePath);
+			SysUtils.DeleteFile(FilePath);
 		except
 		end;
 	end;