コンパイル時に[警告][ヒント]がなるべく出ないように修正。

[gikonavigoeson/gikonavi.git] / ItemDownload.pas

diff --git a/ItemDownload.pas b/ItemDownload.pas
index ad5db73..b47ab06 100644 (file)
--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -4,7 +4,7 @@ interface
 
 uses
        SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP,
-       HTTPApp, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,}
+       {HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,}
        GikoSystem, BoardGroup, MonaUtils;
 
 type
@@ -259,6 +259,8 @@ begin
                                                AdjustLen := 0;
                                                FMsg := '\81\9a\81u\82 \82Ú\81[\82ñ\81v\82ð\8c\9f\8fo\82µ\82½\82Ì\82Å\8dÄ\8eæ\93¾\82ð\8ds\82¢\82Ü\82· - [' + ATitle + ']';
                                                FIcon := gmiWhat;
+                        if FileExists(ChangeFileExt(Item.FThreadItem.GetThreadFileName,'.NG')) = true then
+                                               DeleteFile(ChangeFileExt(Item.FThreadItem.GetThreadFileName,'.NG'));
                                                if Assigned(OnDownloadMsg) then
                                                        Synchronize(FireDownloadMsg);
                                                if not DatDownload(Item.DownType, URL, ZERO_DATE, RangeStart, AdjustLen) then