初回Tabファイル保存時にエラーメッセージが出るのを修正

diff --git a/Giko.pas b/Giko.pas
index 8d8b591..3670b61 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -11267,11 +11267,13 @@ begin
        SaveStringList := TStringList.Create;
         BackStrList := TStringList.Create;
 
-        //\83o\83b\83N\83A\83b\83v
-        BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
-        BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');
-        BackStrList.Free;
+        if FileExists(ExtractFilePath(Application.ExeName) + 'tab.sav') then begin
         //\83o\83b\83N\83A\83b\83v\82ð\8dì\82é\81B
+                BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
+                BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');
+                BackStrList.Free;
+        end;
+        
        try
                Result := GetTabURLs(SaveStringList);
                 if not Result then begin