Скачать: CL | DM;

Как проверить введена в Edit строка или число?   Найти похожие ветки 

← →
Perf2k2 ©   (2006-01-12 10:34) [0]

Собственно сабж, больше добавить нечего... Спасибо.

---

← →
Johnmen ©   (2006-01-12 10:38) [1]

try
 StrToFloat(...)
except
...
end

---

← →
stone ©   (2006-01-12 10:39) [2]

в Edit всегда вводится строка, в некоторых случаях она может быть преобразована в число.
Например, можно проверить функцией TryStrToInt и ей подобными. Подробности по F1.

---

← →
Barsky ©   (2006-01-12 10:41) [3]


numb:=true;
for i:=1 to length(Edit1.Text) do if not ( Edit1.Text[i] in ["0".."9", DecimalSeparator]) then numb:=false;



---

← →
begin...end ©   (2006-01-12 10:43) [4]

Val

---

← →
vidiv ©   (2006-01-12 10:43) [5]

var t:integer;
    c:real;

...
val(Edit1.Text, c, t);
if t>0 then showmessage("строка") else showmessage("Действительное число")

---

← →
Johnmen ©   (2006-01-12 10:48) [6]

Числа, они и такие бывают 23E9

---

← →
Perf2k2 ©   (2006-01-12 11:03) [7]

Всем спасибо за советы, решил сделать вот так:

 
   try
     StrToInt(EditSearch.Text);
   except
     On EConvertError do
       begin
       MessageDlg("Неверный формат поискового слова. Введите число.", mtWarning, [mbOK], 0);
       Exit;
       end;

Вот только он почему-то сначала свою ошибку выдает, а потом уже мою. В чем прикол? :(

---

← →
Perf2k2 ©   (2006-01-12 11:03) [8]

> Числа, они и такие бывают 23E9

Нет, у меня в базе без букв они.

---

← →
TUser ©   (2006-01-12 11:03) [9]

xyz - это тоже число. 35-ричное, правда :)

---

← →
Perf2k2 ©   (2006-01-12 11:04) [10]

> xyz - это тоже число. 35-ричное, правда :)

Там только 10-ричные.

---

← →
Johnmen ©   (2006-01-12 11:04) [11]

>Вот только он почему-то сначала свою ошибку выдает, а потом уже мою. В чем прикол? :(

В том, что ты запускаешь программу под Delphi IDE.

---

← →
Johnmen ©   (2006-01-12 11:06) [12]

>xyz - это тоже число. 35-ричное, правда :)

Обычное десятеричное число 23E9

---

← →
Perf2k2 ©   (2006-01-12 11:07) [13]

> В том, что ты запускаешь программу под Delphi IDE.

Понял, спс. Теперь все нормуль :)

---

← →
evvcom ©   (2006-01-12 11:10) [14]

> Barsky ©   (12.01.06 10:41) [3]

А попробуй такую строку "123.456.789" при DecimalSeparator="." :)

---

← →
Vlad ©   (2006-01-12 11:11) [15]

Есть функция IsNumeric (D7)

---

← →
Leonid Troyanovsky ©   (2006-01-12 11:41) [16]

> Perf2k2 ©   (12.01.06 11:03) [8]

> > Числа, они и такие бывают 23E9

> Нет, у меня в базе без букв они.


Бывают и такие - $ABCDEF

--
Regards, LVT.

---

← →
evvcom ©   (2006-01-12 11:52) [17]

> Perf2k2 ©   (12.01.06 11:03) [8]
>
> > Числа, они и такие бывают 23E9
>
> Нет, у меня в базе без букв они.

Если они действительно числа, то они и хранятся без букв/символов и прочего в виде числа. А то что мы вводим в edit и видим в гридах и т.п. - это уже графическое представление последовательности символов. Как эту последовательность символов в edit будешь интерпретировать ты базе абсолютно по барабану.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.033 c