From 9fdf374060758397c9aa0a9427977b1c0e35a973 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Mon, 3 Jul 2006 14:49:07 +0000
Subject: [PATCH] =?utf8?q?=E5=86=85=E9=83=A8=E3=81=A7=E3=83=87=E3=83=95?=
 =?utf8?q?=E3=82=A9=E3=83=AB=E3=83=88=E3=83=95=E3=82=A1=E3=82=A4=E3=83=AB?=
 =?utf8?q?=E3=82=92=E6=93=8D=E4=BD=9C=E3=81=97=E3=81=AA=E3=81=8F=E3=81=97?=
 =?utf8?q?=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas                  |  3 ---
 GikoSystem.pas            | 23 -----------------------
 InputAssistDataModule.pas |  9 +--------
 3 files changed, 1 insertion(+), 34 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 8081056..0211beb 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -1272,9 +1272,6 @@ begin
 	dummy1.Caption	:= ItemReservPMenu.Caption;
 	dummy1.Hint     := ItemReservPMenu.Hint;
 
-	//Samba24‚̃tƒ@ƒCƒ‹ƒ`ƒFƒbƒN
-	GikoSys.SambaFileExists();
-
 {$IFDEF SPAM_FILTER_ENABLED}
 	// ƒXƒpƒ€ƒtƒBƒ‹ƒ^ŠwK—š—ð
 	GikoSys.Bayesian.LoadFromFile( GikoSys.Setting.GetSpamFilterFileName );
diff --git a/GikoSystem.pas b/GikoSystem.pas
index 6666742..01357fe 100644
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -213,9 +213,6 @@ type
 
 		procedure GetPopupResNumber(URL : string; var stRes, endRes : Int64);
 
-		//! Samba24‚̃tƒ@ƒCƒ‹‚ª‘¶Ý‚·‚é‚©B‘¶Ý‚µ‚È‚¢ê‡Adefaultƒtƒ@ƒCƒ‹‚ðrename‚·‚é
-		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 ‚ª–³‚¯‚ê‚΍쐬
-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 “¯‚¶“Še ID ‚ðŽ‚ÂƒŒƒX‚ðƒAƒ“ƒJ[‚É‚µ‚Ä—ñ‹“
 \param AID        ŒÂl‚ð“Á’è‚·‚é“Še ID
diff --git a/InputAssistDataModule.pas b/InputAssistDataModule.pas
index 6b0531c..a5626d4 100644
--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -120,16 +120,9 @@ var
 begin
 	FInit := True;
 	try
-		// iniƒtƒ@ƒCƒ‹‚ª–³‚¯‚ê‚΁AƒfƒtƒHƒ‹ƒg‚ðƒŠƒl[ƒ€‚·‚é
-		if not FileExists(FilePath) then begin
-			CopyFile(
-					PChar(ChangeFileExt(FilePath, '.default')),
-					PChar(FilePath), True);
-		end;
-
 		// ƒtƒ@ƒCƒ‹‚Ì‘¶Ý‚ðŠm”F
 		if FileExists(FilePath) then begin
-			ini := TMemIniFile.Create(FilePath);
+            ini := TMemIniFile.Create(FilePath);
 			sections := TStringList.Create;
 			keys := TStringList.Create;
 			try
-- 
2.11.0