Cuestión : Pieza de número entero de la vuelta de la secuencia del manupliate de Delphi solamente

El buen day

I tiene una secuencia que pudo parecer esto: el test
or
TT=1
or
TT=8888 de la prueba del
TT=16
or
TT=6 esto es una necesidad del line

I de volver solamente la pieza de número entero después de que el theTT=

How pueda yo lograr el this

thanx class= del

Respuesta : Pieza de número entero de la vuelta de la secuencia del manupliate de Delphi solamente 

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

  función ExtractNumber (s: secuencia): número entero;
  var i: número entero;
  comenzar
    si posición (“=”, s) > 0 entonces
      s: = copia (s, posición (“=”, s) +1, longitudes);
    para i: = 1 a las longitudes hace
      si no (s [i] adentro [“0”. “9”]) entonces
      comenzar
        System.Delete (s, i, longitud);
        rotura;
      extremo;
    Resultado: = StrToIntDef (s, 0);
  extremo;
Otras soluciones  
 
programming4us programming4us