Delphi FMX Verify if EditText contains Numbers Only?


I need to use different procedure depending on the Edittext.text

i need to call ProcessA(value: string); with Parameters of last 4 Char of string if Edittext.text’s first 4 char are string and next 4 are number.

and Call ProcessB(value:integer) with last four numbers as parameter if all 8 char are numbers ?

For Example: If EditText.Text is ASDF1234 then i’ll call ProcessA
and if EdiText.Text is 12345678 then i need to call ProcessB.

Show Error if string is like ASD12345 or ASDFG123 or 1234567A or if Numbers are in decimal.

How can i verify this ?

Comments are closed.