Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

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

← →
Zloy ©   (2004-12-07 15:46) [0]

Я вот думаю, что должны быть в дельфи встроенные функции. Конечно можно создать с помощью множества проверить содержимое, но ведь есть наверное более простые способы.

---

← →
Александр Иванов ©   (2004-12-07 16:05) [1]

try
value:=StrToInt(Edit1.Text);
Result:=True;
except
 on EConvertError do Result:=False;
end;

есть еще функция, но запамятовал название (что-то типа TryConvert...).

---

← →
TUser ©   (2004-12-07 16:06) [2]

Есть еще TryStrToInt

---

← →
Bobby Digital ©   (2004-12-07 20:15) [3]

CODE>
function _type (s: string) : integer;
 var
 i:integer;
 f: double;
  begin
  if tryStrToInt (s,i) then
  result:=0
  else if tryStrToFloat(s,f) then
  result:=1
  else
  result:=-1;
end;<

---

← →
Fay ©   (2004-12-07 22:12) [4]

Val

---

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

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.053 c