Hogyan lehet ellenőrizni belépett a szerkesztés karakterlánc vagy szám

előző ◈ a következő

Valójában a téma, mit hozzátenni. Köszönöm.

Szerkesztése mindig bekerül egy húr bizonyos esetekben át lehet alakítani egy számot.
Például ellenőrizheti TryStrToInt funkció és hasonlók. Részletek F1.


zsibbad: = true;
i: = 1 hossz (Edit1.Text) tenni, ha nem (Edit1.Text [i] [ "0" .. "9", DecimalSeparator]), majd elzsibbadt: = false;

var t: egész szám;
# XA0; # XA0; c: real;


Val (Edit1.Text, c, t);
ha t> 0, akkor ShowMessage ( "string") else ShowMessage ( "valós szám")

Száma, és jönnek ilyen 23E9

Köszönöm mindenkinek a tanácsot, úgy döntöttem, hogy ezt:

# XA0;
# XA0; # XA0, próbálja
# XA0; # XA0; # XA0; StrToInt (EditSearch.Text);
# XA0; # XA0, kivéve
# XA0; # XA0; # XA0; On EConvertError do
# XA0; # XA0; # XA0; # XA0; kezdődik
# XA0; # XA0; # XA0; # XA0; MessageDlg ( "Érvénytelen keresőszót méret Írja le ..", MtWarning [mbOK], 0);
# XA0; # XA0; # XA0; # XA0; kilépés;
# XA0; # XA0; # XA0; # XA0; end;

Íme néhány ok, először adja a hibát, majd az enyém. Mi a csapda. (


> A számok vannak, és ők 23E9

Nem, van az adatbázisban nélkül a betűk vannak.

xyz - ez ugyanaz a szám. 35 tizedes, bár :)


> Xyz - ez ugyanaz a szám. 35 tizedes, bár :)

Már csak 10-ed rendű.

> Az egyetlen ok, amiért először adja a hibát, majd az enyém. Mi a csapda. (

Az a tény, hogy elindítja a programot Delphi IDE.

> Xyz - ez ugyanaz a szám. 35 tizedes, bár :)

Átlagos decimális szám 23E9


> Az a tény, hogy elindítja a programot Delphi IDE.

Megvalósult ATP. Most minden normul :)

Van egy funkció IsNumeric (D7)

>> A számok olyanok, 23E9

> Nem, van az adatbázisban nélkül a betűk vannak.

Vannak még ilyen - $ ABCDEF

Memória: 0,75 MB
Idő: 0.057 c

előző ◈ a következő