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
相关文档：
参考资料
“浅谈Object Pascal的指针”
“Delphi 指针入门”
基本知识
指针
指针是一个特殊的变量，它里面存储的数值被解释成为内存里的一个地址。
注意：
（1）、指针对应着一个数据在内存中的地址，得到了指针就可以自由地修改该数据。
（2）、一个指针变量仅仅是存储� ......
最近在调试代码,发现一个问题.应该算是bug吧. 呵,如果不算bug,那就是我对其实现原理的误解.
如果把返回参数Result作为另一函数的输入参数,result的初值是不确定...
function fun(str:string):string;
begin
fun2(result);
end; ......
Delphi TStream 详细介绍
Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和部件)
在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对 ......
Delphi U盘插入拨出检测：
1、新建工程；
2、在form1上放一个Label；
3、定义一个私有过程
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
完整代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics ......
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
