关于做一个类？少了可以再加

Question

各位高手，是这样的：
我有这样一个表：标点符号　语言编码
　　　　　　　　　。　　　　中文
　　　　　　　　　.         英文
要做一个类：实现的功能就是给定一个字符和语言编码，判断它是否是标点符号。当然用一个函数也能实现，查找给定的字符和语言编码看它是否在数据库存在就行。不过，因为考虑速度的问题，所以要用类实现，一次性从数据库里边取出标点符号集，然后查找给定的字符是否在字符集中就行，以后判断其它的字符就挺快的了。
　　最好能有源码，哪位大虾帮帮忙

Answer 1

unit Unit2;interface
uses
  IniFiles;
type
  TCheckMark=class
  private
    Data:THashedStringList;
    procedure LoadData;
  public
    function Check(AChar:WideChar):boolean;
    constructor Create;overload;
    destructor Destroy;override;
  end;implementation{ TCheckMark }function TCheckMark.Check(AChar: WideChar): boolean;
begin
  result:= Data.IndexOf(Achar) <>-1 ;
end;constructor TCheckMark.Create;
begin
  inherited;
  Data:=THashedStringList.Create;
  LoadData;
end;destructor TCheckMark.Destroy;
begin
  Data.Free;
  inherited;
end;procedure TCheckMark.LoadData;
begin
  //Data.Add('.');
  //这里把从数据库里搜索到的标点全部Add到Data中
end;end.给你写了个框架,把LoadData实现了,就可以正常运行了.

Answer 2

请教一个问题，哪位仁兄帮我解决，感激不尽
用delphi怎么才能统计某篇word文档里边，所有字体或者字号的个数，和页眉或者页脚中字的个数以及正文的字的个数。
   实在解决不了，给我提供这方面的资料也行，谢啦！