Frage : Ganzzahliger Teil der Delphi manupliate Schnurrückkehr nur

Gutes day

I haben eine Schnur, die wie dieses aussehen konnte:
TT=16
or
TT=6 Test test
or
TT=1
or
TT=8888 dieses ist eine line

I Notwendigkeit, nur den ganzzahligen Teil zurückzubringen, nachdem theTT=

How ich this

thanx vollenden kann

Antwort : Ganzzahliger Teil der Delphi manupliate Schnurrückkehr nur 

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

  Funktion ExtractNumber (s: Schnur): ganze Zahl;
  var I: ganze Zahl;
  anfangen
    wenn Position („=“, s) > 0 dann
      s: = Kopie (s, Position („=“, s) +1, Längen);
    für i: = tun 1 zu den Längen
      wenn nicht (s [i] innen [„0“. „9“]) dann
      anfangen
        System.Delete (s, i, Länge);
        Bruch;
      Ende;
    Resultat: = StrToIntDef (s, 0);
  Ende;
Weitere Lösungen  
 
programming4us programming4us