可以判断出是汉字不过怎么判断是不是 数字,标点? 这个有什么 Ascii>*** 这样判断的吗?
谢谢?
谢谢?
解决方案 »
- clipCursor(@rect); 这里为什么要加@?
- delphi在线程中创建并显示form的问题,请各位指教。
- Canvas 传入dll问题
- 关于函数CreateOleObject的一些问题??
- 一个怪问题,等待高人指点
- 新手问路2:ADOTable与ADOQury有什么区别???
- 十万火急 请问大虾:如何把字符串中的数字提取出来
- 在SQL一张表中,如何查询同一个字段有两条相同记录?高手帮忙啊~!~!
- 请问,为什么我用Tclinetsocket 向Tserversocket发信息会出现乱码啊
- 100份求教,怎样动态生成菜单?
- 一个ADO查询问题!!!!!有人能解决吗???????
- 有问题啊 死活不行啊 有人能解决这个查询问题吗???
至少标点呢,有一个方法,用UltraEdit输进汉字的标点,然后用十六进制的模式查看,就知道是什么码了。
==不是同一个啊,全角的有两字节的A。。,半角的只有一字节31什么来的谢谢 linzhengqun ,知道这样子也行了结帖吧
procedure TForm1.Button1Click(Sender: TObject);
var s:WideString;i:integer;
begin
s:='哈哈123!?。';
for i:=1 to length(s) do
if pos(s[i],'!?。,')>0 then edit1.Text:=Edit1.Text+s[i];
end;