delphi实现字符串中数字的判断及相应数字累加
最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
s1:='10ad200d3'; // 要处理的字符串
tem1:=''; //用来存放得到的数字型字符
tem2:=0; //用来存放合计数
n1:=1; //用来存放统计到位数 ，即现时判断到哪一位置了
for i:=1 to length(s1) do
begin
//当遇到字符时
if not (s1[i] in ['0'..'9','.']) then //判断字符串中某个字符是否是数字
begin
if i<>1 then //当第一个就是字符时，对于本例是不用作任何处理
begin
if tem1<>'' then //将这个字符前面 数字相加
begin
tem2:=tem2+strtoint(tem1);
tem1:='';
end;
end;
n1:=i+1; //位置向前推一位
end;
if (s1[i] in ['0'..'9','.'])then
begin
tem1:=tem1+copy(s1,n1,1); //这种处理主要是为如果连续出现数字时
n1:=i+1;
&nb
相关文档：
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
......
在低版本中设定MSCOMM控件，是导入MSCOMM组件，然后就可以看见MSCOMM控件的电话的图标了，但是在DELPHI 2005或以上版本中就必须先把此控件创建到包中（BPL）然后导入BPL，那个电话图标就可以看见在工具条上了。我试了多少回才试出来的。 ......
上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最
基本的方式来创建一个组件！也就是使用Delphi自己的组件开发向导来建立一个新的组件。在这里，我以扩充TEdit为例进行讲解。
那么首先，要介绍的就是 ......
距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。
再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组� ......
