| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как проверить Edit, введен текст или цифры? [D7, WinXP]

Zloy ©   (2004-12-07 15:46:00) 

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

---

Fay   (2004-12-07 22:12:00) [1]

Val

---

Bobby Digital   (2004-12-07 20:15:00) [2]

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;<

---

TUser   (2004-12-07 16:06:00) [3]

Есть еще TryStrToInt

---

Александр Иванов   (2004-12-07 16:05:00) [4]

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

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

---

Наверх