procedure TBBS.SetSelectText(s: string);
begin
FSelectText := s;
- ShortSelectText := ZenToHan(s);
+ ShortSelectText := CustomStringReplace(ZenToHan(s), ' ', '');
end;
{class function TBBS.GetColumnName(Index: Integer): string;
ThreadItem.No := Rec.FNo;
ThreadItem.FileName := Rec.FFileName;
ThreadItem.Title := Rec.FTitle;
+ ThreadItem.ShortTitle := CustomStringReplace(ZenToHan(ThreadItem.Title), ' ', '');
ThreadItem.Count := Rec.FCount;
ThreadItem.Size := Rec.FSize;
// ThreadItem.RoundNo := Rec.FRoundNo;