From: yoffy Date: Wed, 26 Nov 2003 12:50:32 +0000 (+0000) Subject: ・したらば JBBS の subject.txt は上下が同じなのでそれに対応。 X-Git-Tag: v1_64_1_820~1537 X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=21c2a54761e0c70dc590b1cd38a5deb07c56f9cc;p=gikonavigoeson%2Fgikonavi.git ・したらば JBBS の subject.txt は上下が同じなのでそれに対応。 --- diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr index 96fe3c2..c1c51d1 100644 --- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr +++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr @@ -798,6 +798,7 @@ var responseCode : Longint; uri : TIdURI; uriList : TStringList; + i : Integer; begin Result := dsError; @@ -835,6 +836,11 @@ begin // EUC ‚ð Shift_JIS ‚É FDat.Text := EUCtoSJIS( string( downResult ) ); + // ‚µ‚½‚ç‚Î JBBS ‚̓`ƒFƒbƒN—p‚ɐ擪‚ƍŏIs‚ª“¯‚¶ + i := FDat.Count - 1; + if i > 0 then // 1 ŒÂ‚¾‚Á‚½‚çã‰º‚à‚­‚»‚à–³‚¢‚©‚ç 0 ‚ÍŠÜ‚Ü‚¸ + if FDat[ 0 ] = FDat[ i ] then + FDat.Delete( i ); // •Û‘¶ FDat.SaveToFile( FilePath );