ReadSubjectでの検索用タイトルの作成を止めた。（読み込みの高速化のために）

diff --git a/BoardGroup.pas b/BoardGroup.pas
index a4a1326..9b311e4 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1284,7 +1284,7 @@ begin
                        if Items[i].NewArrival then
                        begin
                                if Items[i].ShortTitle = '' then
-                                       Items[i].ShortTitle := ZenToHan(Items[i].Title);
+                                       Items[i].ShortTitle := CustomStringReplace(ZenToHan(Items[i].Title), ' ', '');
                                if AnsiPos(ParentCategory.ParenTBBS.ShortSelectText, Items[i].ShortTitle) <> 0 then
                                        inc(Result);
                        end;
@@ -1308,7 +1308,7 @@ begin
                        if Items[i].IsLogFile then
                        begin
                                if Items[i].ShortTitle = '' then
-                                       Items[i].ShortTitle := ZenToHan(Items[i].Title);
+                                       Items[i].ShortTitle := CustomStringReplace(ZenToHan(Items[i].Title), ' ', '');
                                if AnsiPos(ParentCategory.ParenTBBS.ShortSelectText, Items[i].ShortTitle) <> 0 then
                                        inc(Result);
                        end;
@@ -1326,7 +1326,7 @@ begin
        else
                for i := 0 to Count - 1 do begin
                        if Items[i].ShortTitle = '' then
-                               Items[i].ShortTitle := ZenToHan(Items[i].Title);
+                               Items[i].ShortTitle := CustomStringReplace(ZenToHan(Items[i].Title), ' ', '');
                        if AnsiPos(ParentCategory.ParenTBBS.ShortSelectText, Items[i].ShortTitle) <> 0 then
                                inc(Result);
                end;
@@ -1356,7 +1356,7 @@ begin
                        if Items[i].NewArrival then
                        begin
                                if Items[i].ShortTitle = '' then
-                                       Items[i].ShortTitle := ZenToHan(Items[i].Title);
+                                       Items[i].ShortTitle := CustomStringReplace(ZenToHan(Items[i].Title), ' ', '');
                                if AnsiPos(ParentCategory.ParenTBBS.ShortSelectText, Items[i].ShortTitle) <> 0 then begin
                                        if Index = Cnt then begin
                                                Result := Items[i];
@@ -1426,7 +1426,7 @@ begin
        end else begin
                for i := 0 to Count - 1 do begin
                        if Items[i].ShortTitle = '' then
-                               Items[i].ShortTitle := ZenToHan(Items[i].Title);
+                               Items[i].ShortTitle := CustomStringReplace(ZenToHan(Items[i].Title), ' ', '');
                        if AnsiPos(ParentCategory.ParenTBBS.ShortSelectText, Items[i].ShortTitle) <> 0 then begin
                                if Index = Cnt then begin
                                        Result := Items[i];

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7bfc9c1..d670537 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -578,7 +578,7 @@ begin
                                ThreadItem.No := Rec.FNo;
                                ThreadItem.FileName := Rec.FFileName;
                                ThreadItem.Title := Rec.FTitle;
-                               ThreadItem.ShortTitle := CustomStringReplace(ZenToHan(ThreadItem.Title), ' ', '');
+                               //ThreadItem.ShortTitle := CustomStringReplace(ZenToHan(ThreadItem.Title), ' ', '');
                                ThreadItem.Count := Rec.FCount;
                                ThreadItem.Size := Rec.FSize;
 //                     ThreadItem.RoundNo := Rec.FRoundNo;