该字符串的一般格式是:
X12XX4X X表示中文
比如 啊12的3如4
如34如34共4
上面去掉中文是:
1234
34344
有没有去掉汉字的函数??或者怎么实现??
X12XX4X X表示中文
比如 啊12的3如4
如34如34共4
上面去掉中文是:
1234
34344
有没有去掉汉字的函数??或者怎么实现??
解决方案 »
- 关于在局域网内复制文件总是搞不定? copyfile(pchar(m1),pchar(m2),false)
- 双节来临,谢谢兄弟们长久以来的支持,散分。
- CreateSemaphore线程同步问题
- 已知道一日期,如何在记录中查询给日期所在范围内的记录。只有开始没有结束日期的。
- 问一个ADOQuery的问题,请各位指教
- 写组件的中的问题,请各位指点
- 为了明天和将来,我一直在努力!谁人与共!
- 电子地图
- 这个问题好像有人问过,不过还是请大哥帮个忙
- 怎么memo上弹出的popmenu中加入一个menuitem??
- 在执行过ADOQuery.Delete;语句后,记录会自动下移一条,这时数据操作已经提交了吗?
- 安装制作问题!帮忙
i: integer;
s, s1: string;
begin
s := '啊12的3如4';
s1 := '';
for i := 1 to Length(s) do
if Ord(s[i]) < 128 then
s1 := s1 + s[i];
ShowMessage(s1);
end;
var
str:widestring;
i:integer;
begin
str:='sddgf好呀sdf';
for i:=1 to length(str) do
begin
if ord(str[i])<127 then
edit1.text:=Edit1.text+str[i];
end;
end;
Result:='';
i:=1;
while i<=Length(Str) do
begin
if Ord(Str[i])<128 then
Result:=Result+Str[i];
Inc(i);
end;
我再送一个函数:;function GetNumFromStr(const str: String;const hex:boolean=false): String;
var
i:integer;
charset:Set of char;
begin
if hex then
charset:=['0'..'9','a'..'f','A'..'F','.']
else
charset:=['0'..'9','.'];
for i := 1 to Length(str) do
begin
if (str[i] in charset) then
result:= result + uppercase(str[i]);
end;
end;可以取得十六进制的数字!可以包含小数点,但你必须保证只有一个小数点!