From c6cb85e0e425ab468b7f09cbcc9e7a909c47a610 Mon Sep 17 00:00:00 2001 From: h677 Date: Sat, 22 Jul 2006 20:34:39 +0000 Subject: [PATCH] =?utf8?q?=E7=84=A1=E5=8A=B9=E3=81=AAID=E3=81=AE=E5=88=A4?= =?utf8?q?=E5=AE=9A=E3=82=92=E4=BF=AE=E6=AD=A3=E3=80=82=20=E3=81=BB?= =?utf8?q?=E3=81=8B=E3=82=B3=E3=83=A1=E3=83=B3=E3=83=88=E8=BF=BD=E5=8A=A0?= =?utf8?q?=E3=81=97=E3=81=9F=E3=82=8A=EF=BC=8C=E3=82=B3=E3=83=A1=E3=83=B3?= =?utf8?q?=E3=83=88=E3=82=A2=E3=82=A6=E3=83=88=E3=81=97=E3=81=9F=E3=82=BD?= =?utf8?q?=E3=83=BC=E3=82=B9=E3=82=92=E5=89=8A=E9=99=A4=E3=81=97=E3=81=9F?= =?utf8?q?=E3=82=8A=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- BoardGroup.pas | 1 - MojuUtils.pas | 19 +++- Round.dfm | 296 ++++++++++----------------------------------------------- RoundData.pas | 92 ++++-------------- gikoNavi.res | Bin 4292 -> 4292 bytes 5 files changed, 87 insertions(+), 321 deletions(-) diff --git a/BoardGroup.pas b/BoardGroup.pas index 095f7f6..b0cdfd4 100644 --- a/BoardGroup.pas +++ b/BoardGroup.pas @@ -104,7 +104,6 @@ type FURL: string; //ƒ{[ƒhURL FRound: Boolean; //ƒXƒŒƒbƒhˆê——„‰ñ—\–ñ FRoundName: string; //„‰ñ–¼ - //FRoundName: PChar; //„‰ñ–¼ FRoundDate: TDateTime; //ƒXƒŒƒbƒhˆê——‚ðŽæ“¾‚µ‚½“úŽži„‰ñ“úŽžj FLastModified: TDateTime; //ƒXƒŒƒbƒhˆê——‚ªXV‚³‚ê‚Ä‚¢‚é“úŽžiƒT[ƒo‘¤“úŽžj FLastGetTime: TDateTime; //ƒXƒŒƒbƒh‚Ü‚½‚̓XƒŒƒbƒhˆê——‚ðÅŒã‚ɍXV‚µ‚½“úŽžiƒT[ƒo‘¤“úŽžE‘‚«ž‚ÝŽž‚ÉŽg—p‚·‚éj diff --git a/MojuUtils.pas b/MojuUtils.pas index fe4aa58..4291e20 100644 --- a/MojuUtils.pas +++ b/MojuUtils.pas @@ -289,17 +289,26 @@ begin Result := CustomStringReplace(Result, '|', 'b'); end; (************************************************************************* - * –³Œø‚ÈID‚©‚̃`ƒFƒbƒNi–³Œø—áFID:??? , ID:???0) + * –³Œø‚ÈID‚©‚̃`ƒFƒbƒNi–³Œø—áFID:??? , ID:???X) *************************************************************************) function IsNoValidID( inID :String): Boolean; +var + bTail : Boolean; begin + Result := True; inID := Trim(inID); - if inID = '' then Result := True - else begin + if (Length(inID) > 0) then begin inID := Copy(inID, AnsiPos(':', inID) + 1, Length(inID) ); + bTail := False; + // ––”ö‚ª?ˆÈŠO‚© + if Length(inID) > 0 then begin + bTail := (inID[Length(inID)] <> '?'); + end; inID := CustomStringReplace(inID, '?', ''); - if (inID = '') or (inID = '0') then Result := True - else Result := False; + if (Length(inID) > 0) and (not + ((Length(inID) = 1) and (bTail))) then begin + Result := False; + end; end; end; diff --git a/Round.dfm b/Round.dfm index 08bd36d..bc05a86 100644 --- a/Round.dfm +++ b/Round.dfm @@ -1,6 +1,6 @@ object RoundDialog: TRoundDialog - Left = 249 - Top = 137 + Left = 256 + Top = 175 Width = 600 Height = 427 BorderIcons = [biSystemMenu] @@ -190,7 +190,7 @@ object RoundDialog: TRoundDialog Top = 4 Bitmap = { 494C010104000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000003000000001002000000000000030 + 0000000000003600000028000000400000003000000001001000000000000018 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -324,256 +324,64 @@ object RoundDialog: TRoundDialog 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000010421863186318631863 + 1863186318631863186318631863000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000010421042104210421042 + 104210421042104210421042000000000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001042FF7F1863E07F1863 + E07F1863E07F1863E07F1042000000000000000000001042FF7F104210421042 + 10421042104210421042FF7F1863000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000001042FF7F1863E07F1863E07F + 1863E07F1863E07F18630000104200000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7FFF7FFF7F186300000000000000000000FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000001042 + FF7F0000000000000000000000000000000010421042FF7FE07F1863E07F1863 + E07F1863E07F186310420000000000000000000000001042FF7F104210421042 + 10421042104210421042FF7F1863000000000000000000001042104200000000 + 00000000FF7FFF7F000000000000000000000000000000000000000010421042 + FF7FFF7F00000000000000000000000000001042FF7FE07F1863E07F1863E07F + 1863E07F1863E07F00001863186300000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000104200000000 + 00000000FF7F0000000000000000000000000000000000000000000010420000 + 0000FF7F00000000000000000000000000001042FF7FFF7FFF7FFF7FFF7FFF7F + FF7FFF7FFF7F104200001F00FF7F18630000000000001042FF7F104210421042 + 10421042104210421042FF7F1863000000000000000000000000104210420000 + 0000FF7FFF7F0000000000000000000000000000000000000000104210420000 + 0000FF7FFF7F0000000000000000000000000000104210421042104210421042 + 10421042104210421042FF7FFF7F00000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000010420000 + 0000FF7F00000000000000000000000000000000000000000000104200000000 + 00000000FF7F00000000000000000000000000001042FF7FE07F18631042FF7F + FF7F1F0018631F00FF7FFF7F000000000000000000001042FF7F104210421042 + 10421042104210421042FF7F1863000000000000000000000000000010421042 + FF7FFF7F00000000000000000000000000000000000000001042104200000000 + 00000000FF7FFF7F0000000000000000000000001042FF7F1863E07F18631042 + FF7FFF7F1F00FF7FFF7F0000104200000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7FFF7FFF7F1863000000000000000000000000000000001042 + FF7F000000000000000000000000000000000000000000001042104210421042 + 10421042104210420000000000000000000000001042FF7FE07F1863E07F1863 + 1042FF7FFF7FFF7F00001042104200000000000000001042FF7F104210421042 + 10421042104210421042FF7F1863000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F + 10421042FF7F000000000000000000000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000001042104210421042 + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7F1863FF7F1042000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001042FF7FFF7FFF7FFF7F + FF7FFF7FFF7FFF7F186310420000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000084848400C6C6 - C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 - C600C6C6C600C6C6C60000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000848484008484 - 8400848484008484840084848400848484008484840084848400848484008484 - 840084848400000000000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000084848400FFFF - FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF - FF0084848400000000000000000000000000000000000000000084848400FFFF - FF00848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6 - C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6 - C60000000000848484000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00C6C6C6000000000000000000000000000000000000000000FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000084848400FFFFFF000000000000000000000000000000 - 0000000000000000000000000000000000008484840084848400FFFFFF0000FF - FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C6008484 - 840000000000000000000000000000000000000000000000000084848400FFFF - FF00848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000008484 - 84008484840000000000000000000000000000000000FFFFFF00FFFFFF000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000008484840084848400FFFFFF00FFFFFF0000000000000000000000 - 00000000000000000000000000000000000084848400FFFFFF0000FFFF00C6C6 - C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000 - 0000C6C6C600C6C6C6000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 00008484840000000000000000000000000000000000FFFFFF00000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000848484000000000000000000FFFFFF0000000000000000000000 - 00000000000000000000000000000000000084848400FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484000000 - 0000FF000000FFFFFF00C6C6C60000000000000000000000000084848400FFFF - FF00848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 000084848400848484000000000000000000FFFFFF00FFFFFF00000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000084848400848484000000000000000000FFFFFF00FFFFFF00000000000000 - 0000000000000000000000000000000000000000000084848400848484008484 - 8400848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00FFFFFF000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 000000000000848484000000000000000000FFFFFF0000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00008484840000000000000000000000000000000000FFFFFF00000000000000 - 0000000000000000000000000000000000000000000084848400FFFFFF0000FF - FF00C6C6C60084848400FFFFFF00FFFFFF00FF000000C6C6C600FF000000FFFF - FF00FFFFFF00000000000000000000000000000000000000000084848400FFFF - FF00848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 0000000000008484840084848400FFFFFF00FFFFFF0000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000008484 - 84008484840000000000000000000000000000000000FFFFFF00FFFFFF000000 - 0000000000000000000000000000000000000000000084848400FFFFFF00C6C6 - C60000FFFF00C6C6C60084848400FFFFFF00FFFFFF00FF000000FFFFFF00FFFF - FF0000000000848484000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 0000000000000000000084848400FFFFFF000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000008484 - 8400848484008484840084848400848484008484840084848400848484000000 - 0000000000000000000000000000000000000000000084848400FFFFFF0000FF - FF00C6C6C60000FFFF00C6C6C60084848400FFFFFF00FFFFFF00FFFFFF000000 - 000084848400848484000000000000000000000000000000000084848400FFFF - FF00848484008484840084848400848484008484840084848400848484008484 - 8400FFFFFF00C6C6C60000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF008484840084848400FFFFFF00000000000000 - 000000000000000000000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000008484 - 8400848484008484840084848400000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6 - C600FFFFFF008484840000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000084848400FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6 - C600848484000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000848484008484 - 8400848484008484840084848400848484008484840084848400848484008484 - 8400000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000010421042104210421042 + 1042104210421042104200000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000424D3E000000000000003E000000 2800000040000000300000000100010000000000800100000000000000000000 diff --git a/RoundData.pas b/RoundData.pas index b9cc908..24208f7 100644 --- a/RoundData.pas +++ b/RoundData.pas @@ -38,9 +38,6 @@ type property Count[RoundType: TGikoRoundType]: Integer read GetCount; property OldFileRead: Boolean read FOldFileRead; property Items[Index: integer; RoundType: TGikoRoundType]: TRoundItem read GetRoundItem; - //procedure SetRoundName(Board: TBoard; RoundName: string); overload; - //procedure SetRoundName(ThreadItem: TThreadItem; RoundName: string); overload; - procedure LoadRoundBoardFile; procedure LoadRoundThreadFile; procedure SaveRoundFile; @@ -51,7 +48,6 @@ type TRoundItem = class(TObject) private FItem : TObject; - FRoundName: string; FRoundType: TGikoRoundType; FTmpURL : string; FBoolData: Boolean; //‚¢‚ë‚¢‚ëŽg‚¤‚å‚£ @@ -84,10 +80,12 @@ const ROUND_INDEX_VERSION: string = '2.00'; ERROR_BOARD_FILENAME: string = 'ErrorBoard.2ch'; //Errors‚ð•ÛŠÇ‚·‚é ERROR_ITEM_FILENAME: string = 'ErrorItem.2ch'; //Errors‚ð•ÛŠÇ‚·‚é +//! „‰ñƒAƒCƒeƒ€ƒRƒ“ƒXƒgƒ‰ƒNƒ^ constructor TRoundItem.Create; begin inherited Create; end; +//! ”–¼Žæ“¾ function TRoundItem.GetBoardTitle : string; begin Result := ''; @@ -99,6 +97,7 @@ begin end; end; end; +//! ƒXƒŒƒbƒh–¼Žæ“¾ function TRoundItem.GetThreadTitle : string; begin Result := ''; @@ -108,6 +107,7 @@ begin end; end; end; +//! URLŽæ“¾ function TRoundItem.GetURL : string; begin Result := ''; @@ -119,6 +119,7 @@ begin end; end; end; +//! ƒXƒŒƒbƒh‚̃tƒ@ƒC–¼Žæ“¾ function TRoundItem.GetFileName : string; begin Result := ''; @@ -140,7 +141,7 @@ begin end; end; end; - +//! „‰ñƒŠƒXƒgƒRƒ“ƒXƒgƒ‰ƒNƒ^ constructor TRoundList.Create; begin inherited; @@ -151,7 +152,7 @@ begin RoundNameList.Duplicates := dupIgnore; FOldFileRead := false; end; - +//! „‰ñƒŠƒXƒgƒfƒXƒgƒ‰ƒNƒ^ destructor TRoundList.Destroy; begin RoundNameList.Free; @@ -160,7 +161,7 @@ begin FItemList.Free; //inherited; end; - +//! „‰ñ—\–ñ’ljÁi”j function TRoundList.Add(Board: TBoard): Integer; var idx: Integer; @@ -168,22 +169,15 @@ var begin Result := -1; idx := Find(Board); - //RoundNameList.Add(Board.RoundName); if idx = -1 then begin Item := TRoundItem.Create; Item.FItem := Board; // Item.BBSType := gbt2ch; //‚Æ‚è‚ ‚¦‚¸ Item.RoundType := grtBoard; -// Item.Item := Board; - //Item.URL := Board.URL; - //Item.BoardTitle := Board.Title; - //Item.ThreadTitle := ''; - //Item.FileName := ''; - //Item.RoundName := Board.RoundName; Result := FBoardList.Add(Item); end; end; - +//! „‰ñ—\–ñ’ljÁiƒXƒŒƒbƒhj function TRoundList.Add(ThreadItem: TThreadItem): Integer; var idx: Integer; @@ -191,26 +185,18 @@ var begin Result := -1; idx := Find(ThreadItem); - //RoundNameList.Add(ThreadItem.RoundName); if idx = -1 then begin Item := TRoundItem.Create; Item.FItem := ThreadItem; // Item.BBSType := gbt2ch; //‚Æ‚è‚ ‚¦‚¸ Item.RoundType := grtItem; -// Item.Item := ThreadItem; - //Item.URL := Threaditem.URL; - //Item.BoardTitle := ThreadItem.ParentBoard.Title; - //Item.ThreadTitle := ThreadItem.Title; - //Item.FileName := ThreadItem.FileName; - //Item.RoundName := ThreadItem.RoundName; Result := FItemList.Add(Item); end; end; - +//! „‰ñ—\–ñíœi”j procedure TRoundList.Delete(Board: TBoard); var idx: Integer; -// Item: TRoundItem; begin idx := Find(Board); if idx <> -1 then begin @@ -219,11 +205,10 @@ begin FBoardList.Delete(idx); end; end; - +//! „‰ñ—\–ñíœiƒXƒŒƒbƒhj procedure TRoundList.Delete(ThreadItem: TThreadItem); var idx: Integer; -// Item: TRoundItem; begin idx := Find(ThreadItem); if idx <> -1 then begin @@ -232,7 +217,7 @@ begin FItemList.Delete(idx); end; end; - +//! „‰ñ—\–ñÁ‹Ž procedure TRoundList.Clear; var i: Integer; @@ -250,7 +235,7 @@ begin end; FItemList.Capacity := FItemList.Count; end; - +//! „‰ñ—\–ñŒŸõi”j function TRoundList.Find(Board: TBoard): Integer; var i: Integer; @@ -266,7 +251,7 @@ begin end; end; end; - +//! „‰ñ—\–ñŒŸõiƒXƒŒƒbƒhj function TRoundList.Find(ThreadItem: TThreadItem): Integer; var i: Integer; @@ -282,6 +267,7 @@ begin end; end; end; +//! „‰ñ—\–ñŒŸõiURL{ƒAƒCƒeƒ€ƒ^ƒCƒvj function TRoundList.Find(URL: string; RoundType: TGikoRoundType): Integer; var i: Integer; @@ -308,6 +294,7 @@ begin end; end; end; +//! „‰ñ—\–ñíœiURL{ƒAƒCƒeƒ€ƒ^ƒCƒvj procedure TRoundList.Delete(URL: string; RoundType: TGikoRoundType); var idx: Integer; @@ -323,7 +310,6 @@ begin board := TBoard(Item); Item.Free; FBoardList.Delete(idx); - //board := BBSsFindBoardFromURL(URL); if board <> nil then begin board.Round := False; board.RoundName := ''; @@ -334,7 +320,6 @@ begin Item.Free; FItemList.Delete(idx); - //threadItem := BBSsFindThreadFromURL(URL); if threadItem <> nil then begin threadItem.Round := false; threadItem.RoundName := ''; @@ -342,32 +327,7 @@ begin end; end; end; -{ -procedure TRoundList.SetRoundName(Board: TBoard; RoundName: string); -var - idx: Integer; - Item: TRoundItem; -begin - idx := Find(Board); - if idx <> -1 then begin - Item := TRoundItem(FBoardList[idx]); - Item.RoundName := RoundName; - end; -end; -} -{ -procedure TRoundList.SetRoundName(ThreadItem: TThreadItem; RoundName: string); -var - idx: Integer; - Item: TRoundItem; -begin - idx := Find(ThreadItem); - if idx <> -1 then begin - Item := TRoundItem(FItemList[idx]); - Item.RoundName := RoundName; - end; -end; -} +//! „‰ñ—\–ñ”Žæ“¾ function TRoundList.GetCount(RoundType: TGikoRoundType): Integer; begin Result := 0; @@ -376,7 +336,7 @@ begin else if RoundType = grtItem then Result := FItemList.Count; end; - +//! „‰ñ—\–ñŽæ“¾ function TRoundList.GetRoundItem(Index: Integer; RoundType: TGikoRoundType): TRoundItem; begin Result := nil; @@ -388,6 +348,7 @@ begin Result := TRoundItem(FItemList[Index]); end; end; +//! ƒ{[ƒh„‰ñ—\–ñƒtƒ@ƒCƒ‹“ǂݍž‚Ý procedure TRoundList.LoadRoundBoardFile; var i: Integer; @@ -395,7 +356,6 @@ var FileName, bFileName: string; errorSl: TStringList; errorFileName: string; - //Item: TRoundItem; delCount: Integer; begin sl := TStringList.Create; @@ -451,20 +411,16 @@ begin sl.Free; end; end; +//! ƒXƒŒƒbƒh„‰ñ—\–ñƒtƒ@ƒCƒ‹“ǂݍž‚Ý procedure TRoundList.LoadRoundThreadFile; var i: Integer; -// j: Integer; sl: TStringList; FileName, bFileName: string; errorSl: TStringList; errorFileName: string; -// Item: TRoundItem; delCount: Integer; -// boardList : TStringList; begin -// boardList := TStringList.Create; -// boardList.Duplicates := dupIgnore; errorSl := TStringList.Create; errorSl.Duplicates := dupIgnore; sl := TStringList.Create; @@ -506,21 +462,15 @@ begin end; end; end; -// j := boardList.Count - 1; -// while j >= 0 do begin -// GikoSys.ReadSubjectFile( BBSsFindBoardFromURL( boardList[j] ) ); -// boardList.Delete(j); -// Dec(j); -// end; if errorSl.Count > 0 then errorSl.SaveToFile(errorFileName); end; finally errorSl.Free; sl.Free; -// boardList.Free; end; end; +//! „‰ñ—\–ñƒtƒ@ƒCƒ‹•Û‘¶ procedure TRoundList.SaveRoundFile; var i: integer; diff --git a/gikoNavi.res b/gikoNavi.res index fc257a5c026ae3043ccef41a7c513fe90fae6db8..1d4a6f68a200c1fd2f29ea94fe3e84022658f86c 100644 GIT binary patch delta 28 kcmX@2ctml-8(z*iObiUB42%qOCV%Dq%V@FrGv7r<0Fi16J^%m! delta 28 kcmX@2ctml-8(z-YObiUB42%r3Cx7Mr%V@s&Gv7r<0FgurI{*Lx -- 2.11.0