怎样提取句子中的汉字 用poss:='你是信';pos('你',S);反回‘你’在S中的位置如果不存在,反回是0 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function ExtractChineseChar(sourcechar:String):String;var i:integer;begin result:=''; for i:=1 to length(sourcechar) do begin if ord(sourcechar[i])>159 then //汉字ASSII码值大于等于160 Result:=Result+Sourcechar[i]; end;end; fastReport yuyuhaso 进来拿分 请教DELPHI执行数据库操作的过程。添加,修改,删除! 如何将程序中的非mainform设置为在顶层?而且要半透明窗体 遇到了怪事,请帮忙解决。。。。TREEVIEW的ONCLICK 一个读写表格宽度的奇怪问题: 怎么创建控件数组 有谁看过《delphi7网络应用开发》一书? 江湖救急,delphi6.0中如何调用DOS命令,很急!!!!! 在clx下面怎么像vcl的table访问数据库? Billenium Effects(FormConTainer)的使用 简单的问题
var
i:integer;
begin
result:='';
for i:=1 to length(sourcechar) do
begin
if ord(sourcechar[i])>159 then //汉字ASSII码值大于等于160
Result:=Result+Sourcechar[i];
end;
end;