delphi 版本号转换数字

function GetVersionAsInteger(const AVersion: string): Integer;

var

  vsVer: string;

  i: Integer;

begin

  Result := 0;

  for i := 1 to Length(AVersion) do

  begin

    if AVersion[i] in ['0'..'9'] then

      vsVer := vsVer + AVersion[i];

  end;

  Result := StrToInt(vsVer);

end;