Fråga : Delphi manupliate stränger den återgång endast heltaldelen

Bra day

I har en stränga som kan looknågot liknande detta:
TT=16
or
TT=6 testar test
or
TT=1
or
TT=8888 som denna är ett behov för line

I att gå endast heltaldelen tillbaka, efter theTT=

How har kunnat mig utföra this

thanx " klar "

Svar : Delphi manupliate stränger den återgång endast heltaldelen 

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

  fungera ExtractNumber (s: stränga): heltal;
  var i: heltal;
  börja
    om pos. (”=”, s) > 0 därefter
      s: = kopiera (s, pos. (”=”, s) +1, längder);
    för I: = 1 till längder gör
      om inte (s [I] in [”0”. ”9”]) därefter
      börja
        System.Delete (s, I, längd);
        avbrott;
      avsluta;
    Resultat: = StrToIntDef (s, 0);
  avsluta;
Andra lösningar  
 
programming4us programming4us