各位大虾:
小弟有一问题请教,怎么样才能把字符串中的数字提取出来呀!用什么函数可以实现
列如:
长江路255号
怎样提取它的‘255’
谢谢大虾了
小弟有一问题请教,怎么样才能把字符串中的数字提取出来呀!用什么函数可以实现
列如:
长江路255号
怎样提取它的‘255’
谢谢大虾了
解决方案 »
- 如何实现移动文件夹
- 1.sql2000 的连接属于tcp? 2.如何测试本机SocketServer可以建立多少tcp连接?(用clientsocket和socketserver写的网络通讯程序)
- ▲请教个基础的问题???谢谢各位了?
- 求VCD租赁管理系统资料,大家提点建议吧!再也不能沉沦VB了,我要重新拿DELPHI,UP者也有分!
- Rewrite函数问题,请帮忙!
- 高手赐教:在Delphi中如何实现类似qq可上下移动的面板效果。
- 所有窗口都可用的函数和变量是在什么地方定义?
- 招募網羅遊戲輔助程式開發人員
- 请大虾指点DELPHI的三层构架客户端和应用服务器两个COM通讯的原理?
- SOS!!!!关于在注册表删除收藏夹的问题..........
- 软件文档怎么写。请高手帮我。谢谢
- 将程序加入启动
var
i: Integer;
temps : string;
begin
for i := Length(s) downto 1 do
begin
if s[i] in ['0'..'9'] then
begin
temps := temps + s[i];
end;
end;
result := temps;
end;
for i := 0 to length(s) -1 do
begin
Result := AnsiPos(c, '0123456789') > 0;
end;
begin
Result := (c >= #48) and (c <= #57);
end;
begin
Result := (ord(c) >= 48) and (ord(c) <= 57);
end;
begin
Result := (c >= chr(48)) and (c <= chr(57));
end;
begin
Result := (c in ['0'..'9']);
end;
00401CDC 3C30 cmp al,$30 (c >= #48)
00401CDE 7204 jb +$04
00401CE0 3C39 cmp al,$39 (c <= #57)
00401CE2 7603 jbe +$03
00401CE4 33C0 xor eax,eax
00401CE6 C3 ret
00401CE7 B001 mov al,$01
Unit1.pas.32: end;天啊。需要这么多指令啊。最后集合操作。Unit1.pas.31: Result := (c in ['0'..'9']);
00401CDC 04D0 add al,$d0
00401CDE 2C0A sub al,$0a
00401CE0 0F92C0 setb al
Unit1.pas.32: end;哇,三条指令就搞定了!!!!你还是用那个吧。
写得比较好,简单,易用。