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;
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;
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;
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];
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];
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;