Pergunta : Peça de inteiro do retorno da corda do manupliate de Delphi somente

O bom day

I tem uma corda que possa olhar como esta: o test
or
TT=1
or
TT=8888 do teste do
TT=16
or
TT=6 isto é uma necessidade do line

I de retornar somente a peça de inteiro depois que o theTT=

How pode mim realizar o this

thanx class= do

Resposta : Peça de inteiro do retorno da corda do manupliate de Delphi somente 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  função ExtractNumber (s: corda): inteiro;
  var i: inteiro;
  começar
    se posição (“=”, s) > 0 então
      s: = cópia (s, posição (“=”, s) +1, comprimentos);
    para i: = 1 aos comprimentos faz
      se não (s [i] dentro [“0”. “9”]) então
      começar
        System.Delete (s, i, comprimento);
        ruptura;
      extremidade;
    Resultado: = StrToIntDef (s, 0);
  extremidade;
Outras soluções  
 
programming4us programming4us