delphi从字符串中取出数字

本文整理自网络，侵删。

 type
TCharSet = set of Char;

function StripNonConforming(const S: string;
const ValidChars: TCharSet): string;
var
DestI: Integer;
SourceI: Integer;
begin
SetLength(Result, Length(S));
DestI := 0;
for SourceI := 1 to Length(S) do
if S[SourceI] in ValidChars then
begin
Inc(DestI);
Result[DestI] := S[SourceI]
end;
SetLength(Result, DestI)
end;

function StripNonNumeric(const S: string): string;
begin
Result := StripNonConforming(S, ['0'..'9'])
end; 

相关阅读 >>

cvcode.pas

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

Delphi整理三（窗体和基本组件）

Delphi 18位身份证号码的校验

Delphi memo 自动滚动到最底下

Delphi 在瑞星2010全保护下创建文件夹

Delphi 执行控制台(console)程序获取返回结果

Delphi实现进制转化（2进制，8进制，10进制，16进制）

Delphi 中使长循环有响应

Delphi tthread中文注释

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi从字符串中取出数字