本文整理自网络，侵删。
delphi 提取字符中的数字
Function Setstring(cString:string):string; {提取数字}
VAr
i:integer;
str:string;
begin
str:='';
For i:=1 to length(cString) do
begin
if Pos(cString[i],'0123456789')<=0 then
break
else
Case cString[i] of
'0': str:=Str+'0'; '1': str:=Str+'1'; '2': str:=Str+'2';
'3': str:=Str+'3'; '4': str:=Str+'4'; '5': str:=Str+'5';
'6': str:=Str+'6'; '7': str:=Str+'7';
'8': str:=Str+'8'; '9': str:=Str+'9';
end;
end;
Setstring:=str;
end;
如121545ADFDF121 提取之后是 121545 函数中去掉红字部份，结果便是：121545121 相关阅读 >>
Delphi xe string与tstringbuilder的关系
Delphi 使用tmemorystream保存多张图片到文件，并读取
Delphi issameday、istoday - 判断是不是同一天、判断是不是今天
更多相关阅读请进入《Delphi》频道 >>
