インストール時の初期登録ファイルを．defaultにできるようにコードを追加

[gikonavigoeson/gikonavi.git] / InputAssistDataModule.pas

diff --git a/InputAssistDataModule.pas b/InputAssistDataModule.pas
index 5f69086..c16234e 100644 (file)
--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -113,9 +113,15 @@ var
        keys: TStringList;
        i, j : Integer;
        resWord : TResistWord;
+       tmpStr: String;
 begin
        FInit := True;
        try
+               // ini\83t\83@\83C\83\8b\82ª\96³\82¯\82ê\82Î\81A\83f\83t\83H\83\8b\83g\82ð\83\8a\83l\81[\83\80\82·\82é
+               if not FileExists(FilePath) then begin
+                       RenameFile(ChangeFileExt(FilePath, '.default'), FilePath);
+               end;
+
                // \83t\83@\83C\83\8b\82Ì\91¶\8dÝ\82ð\8am\94F
                if FileExists(FilePath) then begin
                        ini := TMemIniFile.Create(FilePath);