Modul de testare introdus în editarea unui șir sau a unui număr

De fapt, nu este nimic de adăugat. Mulțumesc.

Editați întotdeauna introduce un șir, în unele cazuri poate fi convertit la un număr.
De exemplu, puteți verifica funcția TryStrToInt și altele asemănătoare. Detalii despre F1.


numb: = adevărat;
pentru i: = 1 până la lungime (Edit1.Text) face dacă nu (Edit1.Text [i] în ["0" .. "9", DecimalSeparator]) apoi numb: = false;

var t: întreg;
# xA0; # xA0; c: real;


val (Edit1.Text, c, t);
dacă t> 0 atunci showmessage ("șir") alt mesaj showmessage ("Număr real")

Numerele, ele și ele sunt 23E9

Vă mulțumesc tuturor pentru sfatul dvs., am decis să fac acest lucru:

# xA0;
# xA0; # xA0; încercați
# xA0; # xA0; # xA0; StrToInt (EditSearch.Text);
# xA0; # xA0; cu excepția
# xA0; # xA0; # xA0; pe EConvertError face
# xA0; # xA0; # xA0; # xA0; începeți
# xA0; # xA0; # xA0; # xA0; MessageDlg ("Format de cuvinte de căutare nevalid, introduceți un număr"; mtWarning, [mbOK], 0);
# xA0; # xA0; # xA0; # xA0; Ieșire;
# xA0; # xA0; # xA0; # xA0; sfârșitul;

Dar, într-un fel, la început își dă greșelile, iar apoi e al meu. Ce glumă. (


> Numerele, ele și ele sunt 23E9

Nu, nu am scrisori în baza de date.

xyz este, de asemenea, un număr. 35-ric, într-adevăr :)


> xyz este, de asemenea, un număr. 35-ric, într-adevăr :)

Există doar zece bogății.

> Aici numai el la început dă greșelile lui, și apoi deja al meu. Ce glumă. (

Faptul că rulați programul în cadrul Delphi IDE.

> xyz este, de asemenea, un număr. 35-ric, într-adevăr :)

Numărul zecimal obișnuit este 23E9


> Prin faptul că rulați programul în cadrul Delphi IDE.

Înțeleg, ATP. Acum toate normul :)

Există o funcție IsNumeric (D7)

>> Numerele, ele și ele sunt 23E9

> Nu, nu am scrisori în baza de date.

Există, de asemenea, astfel de - $ ABCDEF

Memorie: 0,75 MB
Timp de timp: 0,057 sec