我有一个字符串Str,StrE,StrC:String;
Str:='洗涤WASHING电机 PUMP ASSEMBLY/alternative';
我想提取Str中的汉字赋给StrC,把英文和其中包含的符号赋给StrE,
如下:
StrC='洗涤电机';
StrE='WASHING PUMP ASSEMBLY/alternative'
请大侠指教
Str:='洗涤WASHING电机 PUMP ASSEMBLY/alternative';
我想提取Str中的汉字赋给StrC,把英文和其中包含的符号赋给StrE,
如下:
StrC='洗涤电机';
StrE='WASHING PUMP ASSEMBLY/alternative'
请大侠指教
解决方案 »
- 程序最小化至托盘
- 我定义了一个动态数组s:Array of Btye,请问能把流AData:TStream付给动态数组s吗
- Edit.text和网络捕获的数据内容写入数据库
- 如何得到Treeview中结点的关键字值,不是文本text的值,如同VB中的node.key的值
- 求购进销存软件,价格再议!
- 推荐: 给我程序员男朋友的一封信~(希望看过以后,各位程序员可以理解自己的女朋友)
- 过年我想送爸妈老年手机,高手请进帮忙推荐!
- 一个很奇怪的问题,高手快来啊!!!
- 数据库与delphi相结合的问题
- 能否将QuickReport中的Close按钮和Print Setup提示改为中文?
- 删除frame
- 关于使用多个DBLookupCombox控件变慢的问题?!
var
s,s1,s2: string;
ws: WideString;
dp: DWORD;
i: Integer;
begin
s := '我a的ddd家ffffff里'; s1 := '';
ws := WideString(s); for i:=1 to Length(ws) do
begin
s2 := ws[i];
dp := WORD(s2[1]) shl 8 + WORD(s2[2]);
if (dp >= $B0A1) and (dp <= $D7F9) then
s1 := s1 + s2;
end; edit2.Text := s1;
end;