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

Question

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

Answer 1

在Delphi中的一个类单元（StrUtils.pas）这个类中定义了一个函数：
Function AnsiMatchStr(Const Atext:string;const Avalues:array of string)：Boolean；
你要定义你的类可以参照去看一下这个原文件！具体原码，由于时间关系，我不写了，如果有空我一定写！

Answer 2

有必要写一个类吗？
用一个tstringlist保存列表。Sorted :=true;用indexof判断就可以了。