Delphi 提取字符串中所有数字

本文整理自网络，侵删。

 unit Unit1;
interface
uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
uses System.Character;
function getNumberFromStr(strIn: string): string;var  i: integer;  tempStr: string;begin  tempStr := '';
  if Length(strIn) = 0 then  begin    Result := '';    exit;  end;
  for i := 1 to strIn.Length do  begin
    if IsNumber(strIn[i]) then    //isNumber--System.Character    begin      tempStr := tempStr + strIn[i];    end;  end;
  Result := tempStr;end;


procedure TForm1.FormCreate(Sender: TObject);begin   caption:=getNumberFromStr('abc123456 789789');end;
end. 

相关阅读 >>

Delphi 中有 iif() 函数

Delphi api读写ini文件

Delphi10.3.2安卓sdk安装

Delphi 删除文件函数支持撤销删除

Delphi关闭进程

Delphi sha1加密函数

Delphi 只用一条语句就能使tbitmap反色

Delphi unigrid记录check遍历

Delphi post登陆Delphi盒子论坛源码

Delphi timage 加上滚动条方法

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