内部でデフォルトファイルを操作しなくした

diff --git a/Giko.pas b/Giko.pas
index 8081056..0211beb 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1272,9 +1272,6 @@ begin
        dummy1.Caption  := ItemReservPMenu.Caption;
        dummy1.Hint     := ItemReservPMenu.Hint;
 
-       //Samba24\82Ì\83t\83@\83C\83\8b\83`\83F\83b\83N
-       GikoSys.SambaFileExists();
-
 {$IFDEF SPAM_FILTER_ENABLED}
        // \83X\83p\83\80\83t\83B\83\8b\83^\8aw\8fK\97\9a\97ð
        GikoSys.Bayesian.LoadFromFile( GikoSys.Setting.GetSpamFilterFileName );

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 6666742..01357fe 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -213,9 +213,6 @@ type
 
                procedure GetPopupResNumber(URL : string; var stRes, endRes : Int64);
 
-               //! Samba24\82Ì\83t\83@\83C\83\8b\82ª\91¶\8dÝ\82·\82é\82©\81B\91¶\8dÝ\82µ\82È\82¢\8fê\8d\87\81Adefault\83t\83@\83C\83\8b\82ðrename\82·\82é
-               procedure SambaFileExists();
-
                property Bayesian : TGikoBayesian read FBayesian write FBayesian;
                function GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: boolean):string; overload;
                function GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: boolean):string; overload;
@@ -2748,26 +2745,6 @@ begin
        Result := Setting.GetSambaFileName;
 end;
 
-//! Samba.ini \82ª\96³\82¯\82ê\82Î\8dì\90¬
-procedure TGikoSys.SambaFileExists();
-var
-       sambaTmp: string;
-       sambaStrList: TStringList;
-begin
-       if not FileExists(GikoSys.GetSambaFileName) then begin
-               sambaTmp := ChangeFileExt(GikoSys.GetSambaFileName, '.default');
-               sambaStrList := TStringList.Create;
-               try
-                       if FileExists(sambaTmp) then begin
-                               sambaStrList.LoadFromFile(sambaTmp);
-                               sambaStrList.SaveToFile(GikoSys.GetSambaFileName);
-                       end;
-               finally
-                       sambaStrList.Free;
-               end;
-       end;
-end;
-
 {!
 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\83A\83\93\83J\81[\82É\82µ\82Ä\97ñ\8b\93
 \param AID        \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID

diff --git a/InputAssistDataModule.pas b/InputAssistDataModule.pas
index 6b0531c..a5626d4 100644 (file)
--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -120,16 +120,9 @@ var
 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
-                       CopyFile(
-                                       PChar(ChangeFileExt(FilePath, '.default')),
-                                       PChar(FilePath), True);
-               end;
-
                // \83t\83@\83C\83\8b\82Ì\91¶\8dÝ\82ð\8am\94F
                if FileExists(FilePath) then begin
-                       ini := TMemIniFile.Create(FilePath);
+            ini := TMemIniFile.Create(FilePath);
                        sections := TStringList.Create;
                        keys := TStringList.Create;
                        try