Função para retirar somente números de uma string em Delphi

Declare na Seção.

  private

     Function SoNumero(Texto : String) : String;

     Function IsDigit(Texto : string) : Boolean;

Depois da directiva de compilação.

{$R *.dfm}

Function TFrmExportacaoContabilidade.SoNumero(Texto : String) : String;

var

Ind    : Integer;

TmpRet : String;

begin

TmpRet := '';

for Ind := 1 to Length(Texto) do

    begin

    if IsDigit(Copy(Texto,Ind,1)) then

       begin

       TmpRet := TmpRet + Copy(Texto, Ind, 1);

       end;

    end;

Result := TmpRet;

end;

function TFrmExportacaoContabilidade.IsDigit(Texto: string): boolean;

begin

 result := true;

 try

    StrToInt(Texto);

 except

    result := false;

 end;

end;