修訂 | a48b2c3624a1e5c6f726348ff18f05f4850d1d8a (tree) |
---|---|
時間 | 2009-02-01 09:06:27 |
作者 | cvs2git <cvs2git> |
Commiter | cvs2git |
This commit was manufactured by cvs2svn to create tag 'v1_60_0_779'.
@@ -279,7 +279,7 @@ type | ||
279 | 279 | public |
280 | 280 | constructor Create(const inPlugIn : TBoardPlugIn; const inBoard : TBoard; inURL : string ); overload; |
281 | 281 | constructor Create(const inPlugIn : TBoardPlugIn; const inBoard : TBoard; |
282 | - inURL : string; inExist: Boolean; const inFilename: string ); overload; | |
282 | + const inURL : string; inExist: Boolean; const inFilename: string ); overload; | |
283 | 283 | |
284 | 284 | destructor Destroy; override; |
285 | 285 |
@@ -1574,7 +1574,7 @@ end; | ||
1574 | 1574 | constructor TThreadItem.Create( |
1575 | 1575 | const inPlugIn : TBoardPlugIn; |
1576 | 1576 | const inBoard : TBoard; |
1577 | - inURL : string; | |
1577 | + const inURL : string; | |
1578 | 1578 | inExist: Boolean; |
1579 | 1579 | const inFilename: string |
1580 | 1580 | ); |
@@ -1589,7 +1589,7 @@ begin | ||
1589 | 1589 | // dat の保存パスを設定 |
1590 | 1590 | FileName := inFilename; |
1591 | 1591 | IsLogFile := inExist; |
1592 | - URL := GikoSys.Get2chBrowsableThreadURL( inURL ); | |
1592 | + URL := inURL; | |
1593 | 1593 | end else begin |
1594 | 1594 | // プラグインに TThreadItem が作成されたことを伝える |
1595 | 1595 | inPlugIn.CreateThreadItem( DWORD( Self ) ); |
@@ -5,7 +5,7 @@ unit GikoBayesian; | ||
5 | 5 | \brief ベイジアンフィルタ |
6 | 6 | |
7 | 7 | |
8 | -$Id: GikoBayesian.pas,v 1.21 2006/06/26 14:57:15 h677 Exp $ | |
8 | +$Id: GikoBayesian.pas,v 1.22 2009/01/31 15:47:15 h677 Exp $ | |
9 | 9 | } |
10 | 10 | |
11 | 11 | //! 平仮名を辞書に含めない |
@@ -310,12 +310,12 @@ begin | ||
310 | 310 | |
311 | 311 | for i := 1 to sl.Count - 1 do begin |
312 | 312 | s := sl[ i ]; |
313 | - name := RemoveToken( s, #1 ); | |
313 | + name := GikoBayesian.RemoveToken( s, #1 ); | |
314 | 314 | info := TWordInfo.Create; |
315 | - info.NormalWord := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 ); | |
316 | - info.ImportantWord := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 ); | |
317 | - info.NormalText := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 ); | |
318 | - info.ImportantText := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 ); | |
315 | + info.NormalWord := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 ); | |
316 | + info.ImportantWord := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 ); | |
317 | + info.NormalText := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 ); | |
318 | + info.ImportantText := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 ); | |
319 | 319 | |
320 | 320 | AddObject( name, info ); |
321 | 321 | end; |
@@ -181,7 +181,7 @@ type | ||
181 | 181 | |
182 | 182 | procedure MenuFont(Font: TFont); |
183 | 183 | |
184 | - function RemoveToken(var s:string; const delimiter:string):string; | |
184 | +// function RemoveToken(var s:string; const delimiter:string):string; | |
185 | 185 | function GetTokenIndex(s: string; delimiter: string; index: Integer): string; |
186 | 186 | |
187 | 187 | function GetShortName(const LongName: string; ALength: integer): string; |
@@ -264,7 +264,7 @@ const | ||
264 | 264 | ZERO_DATE: Integer = 25569; |
265 | 265 | BETA_VERSION_NAME_E = 'beta'; |
266 | 266 | BETA_VERSION_NAME_J = 'バタ'; |
267 | - BETA_VERSION = 59; | |
267 | + BETA_VERSION = 60; | |
268 | 268 | BETA_VERSION_BUILD = ''; //!< debug版など |
269 | 269 | APP_NAME = 'gikoNavi'; |
270 | 270 | BE_PHP_URL = 'http://be.2ch.net/test/p.php?i='; |
@@ -645,7 +645,7 @@ begin | ||
645 | 645 | end; |
646 | 646 | end; |
647 | 647 | |
648 | - ThreadItem.BeginUpdate; | |
648 | + //ThreadItem.BeginUpdate; | |
649 | 649 | if (datFileCheck) and (islog) then |
650 | 650 | FileList.Delete( Index ); |
651 | 651 |
@@ -670,7 +670,7 @@ begin | ||
670 | 670 | Node := FavoriteDM.TreeView.Items.AddChildObject( FavoriteDM.TreeView.Items.Item[0], ThreadItem.Title, FavoThreadItem); |
671 | 671 | *} |
672 | 672 | |
673 | - ThreadItem.EndUpdate; | |
673 | + //ThreadItem.EndUpdate; | |
674 | 674 | Board.Add(ThreadItem); |
675 | 675 | |
676 | 676 | if (ThreadItem.UnRead) and (ThreadItem.IsLogFile) then |
@@ -699,7 +699,7 @@ begin | ||
699 | 699 | Board.IsThreadDatRead := True; |
700 | 700 | {$IFDEF DEBUG} |
701 | 701 | rt := GetTickCount - st; |
702 | - Writeln('Read Done.' + IntToStr(rt) + ' ms'); | |
702 | + Writeln('Read Done.' + Board.Title + ':' + IntToStr(rt) + ' ms'); | |
703 | 703 | {$ENDIF} |
704 | 704 | end; |
705 | 705 | {! |
@@ -943,7 +943,7 @@ begin | ||
943 | 943 | Result.FLastModified := IntToDateTime(StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), ZERO_DATE)); |
944 | 944 | Result.FKokomade := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), -1); |
945 | 945 | Result.FNewReceive := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0); |
946 | - RemoveToken(Line, #1);//9: ; //未使用 | |
946 | + MojuUtils.RemoveToken(Line, #1);//9: ; //未使用 | |
947 | 947 | Result.FUnRead := IntToBool(StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0)); |
948 | 948 | Result.FScrollTop := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0); |
949 | 949 | Result.FAllResCount := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0); |
@@ -1098,8 +1098,8 @@ begin | ||
1098 | 1098 | Delim := ',' |
1099 | 1099 | else |
1100 | 1100 | Delim := '<>'; |
1101 | - Result.FFileName := RemoveToken(Line, Delim); | |
1102 | - Result.FTitle := Trim(RemoveToken(Line, Delim)); | |
1101 | + Result.FFileName := MojuUtils.RemoveToken(Line, Delim); | |
1102 | + Result.FTitle := Trim(MojuUtils.RemoveToken(Line, Delim)); | |
1103 | 1103 | |
1104 | 1104 | ws := Result.FTitle; |
1105 | 1105 | if Copy(ws, Length(ws), 1) = ')' then begin |
@@ -1363,7 +1363,7 @@ end; | ||
1363 | 1363 | |
1364 | 1364 | どこかのサイトからのパクリ |
1365 | 1365 | } |
1366 | -function TGikoSys.RemoveToken(var s: string;const delimiter: string): string; | |
1366 | +{function TGikoSys.RemoveToken(var s: string;const delimiter: string): string; | |
1367 | 1367 | var |
1368 | 1368 | p: Integer; |
1369 | 1369 | begin |
@@ -1374,7 +1374,7 @@ begin | ||
1374 | 1374 | Result := Copy(s, 1, p - 1); |
1375 | 1375 | Delete(s, 1, Length(Result) + Length(delimiter)); |
1376 | 1376 | end; |
1377 | - | |
1377 | +} | |
1378 | 1378 | |
1379 | 1379 | {! |
1380 | 1380 | \brief n 個目のトークンを切り出し |
@@ -1390,7 +1390,7 @@ var | ||
1390 | 1390 | begin |
1391 | 1391 | Result := ''; |
1392 | 1392 | for i := 0 to index do |
1393 | - Result := RemoveToken(s, delimiter); | |
1393 | + Result := MojuUtils.RemoveToken(s, delimiter); | |
1394 | 1394 | end; |
1395 | 1395 | |
1396 | 1396 |
@@ -1459,10 +1459,10 @@ begin | ||
1459 | 1459 | Line := CustomStringReplace(Line, '@`', ','); |
1460 | 1460 | end; |
1461 | 1461 | //Trimしてはいけない気がする byもじゅ |
1462 | - PRes.FName := RemoveToken(Line, delimiter); | |
1463 | - PRes.FMailTo := RemoveToken(Line, delimiter); | |
1464 | - PRes.FDateTime := RemoveToken(Line, delimiter); | |
1465 | - PRes.FBody := RemoveToken(Line, delimiter); | |
1462 | + PRes.FName := MojuUtils.RemoveToken(Line, delimiter); | |
1463 | + PRes.FMailTo := MojuUtils.RemoveToken(Line, delimiter); | |
1464 | + PRes.FDateTime := MojuUtils.RemoveToken(Line, delimiter); | |
1465 | + PRes.FBody := MojuUtils.RemoveToken(Line, delimiter); | |
1466 | 1466 | //2ちゃんねるとかだと、本文の先頭に1つ半角空白が入っているので削除する |
1467 | 1467 | //他の掲示板で、レス自体の空白かもしれないけどそれは諦める |
1468 | 1468 | PRes.FBody := TrimLeft(PRes.FBody); |
@@ -1470,7 +1470,7 @@ begin | ||
1470 | 1470 | if PRes.FBody = '' then |
1471 | 1471 | PRes.FBody := ' '; |
1472 | 1472 | |
1473 | - PRes.FTitle := RemoveToken(Line, delimiter); | |
1473 | + PRes.FTitle := MojuUtils.RemoveToken(Line, delimiter); | |
1474 | 1474 | end; |
1475 | 1475 | |
1476 | 1476 | {! |
@@ -13,8 +13,8 @@ SourceDir=G:\Release | ||
13 | 13 | OutputDir=G:\InnoSetup\Output |
14 | 14 | SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico" |
15 | 15 | ; ギコナビのバージョンにあわせてください |
16 | -VersionInfoVersion=1.58.1.764 | |
17 | -OutputBaseFilename=gikoNavi_b58_setup | |
16 | +VersionInfoVersion=1.59.1.778 | |
17 | +OutputBaseFilename=gikoNavi_b59_setup | |
18 | 18 | |
19 | 19 | |
20 | 20 | [Tasks] |
@@ -18,8 +18,8 @@ SourceDir=G:\Release | ||
18 | 18 | OutputDir=G:\InnoSetup\Output |
19 | 19 | SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico" |
20 | 20 | ; ギコナビのバージョンにあわせてください |
21 | -VersionInfoVersion=1.59.0.778 | |
22 | -OutputBaseFilename=gikoNavi_b59_778_usetup | |
21 | +VersionInfoVersion=1.60.0.779 | |
22 | +OutputBaseFilename=gikoNavi_b60_779_usetup | |
23 | 23 | CreateUninstallRegKey=no |
24 | 24 | |
25 | 25 | [Tasks] |
@@ -1,4 +1,4 @@ | ||
1 | -■ギコナビ Version1.00 バタ59 Readme.txt | |
1 | +■ギコナビ Version1.00 バタ60 Readme.txt | |
2 | 2 | |
3 | 3 | |
4 | 4 | ------------------------------ |
@@ -108,8 +108,19 @@ LICENSE | ||
108 | 108 | ------------------------------ |
109 | 109 | 履歴 |
110 | 110 | ------------------------------ |
111 | -2008/XX/XX | |
111 | +2009/XX/YY | |
112 | + Version バタ60 | |
113 | + | |
114 | + | |
115 | +2009/02/01 | |
112 | 116 | Version バタ59 |
117 | + レス本文中にAタグ以外のタグが含まれると、レスポップアップで、本文が欠ける不具合の修正 | |
118 | + ギコナビ更新機能追加 | |
119 | + メインフォームで利用しているアイコンの画像を差し替えれるように修正 | |
120 | + 保存したタブのログが存在しない場合にこける問題の修正 | |
121 | + RoundBoard.2ch、RoundItem.2chの内容が1行もない場合クラッシュするバグの修正 | |
122 | + 前回投稿時とIPアドレス(ホスト名)が変わっているときに、Cookie情報が空になる不具合の修正 | |
123 | + したらばJBBSの過去ログで、投稿日+IDの前に"投稿日:"の文字列がない場合に対応 | |
113 | 124 | |
114 | 125 | 2008/09/16 |
115 | 126 | Version バタ58 |