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

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

Tcaption и Char [D7, XP]

Страницы:   < 1 2 >

Alexandr Malygin ©   (2007-12-12 13:03:00) 

Подскажите плиз
Мне нужно проверить что в поле эдит находятся только цифры (целые и нет), я исключил ввод букв, пробелов, но осталась возможность впихнуть их в этот эдит с помощью ctrl+v или paste, вот код как я пытаюсь по уходу из эдита делать проверку

procedure TForm1.SrokEditExit(Sender: TObject);
begin
if not (SrokEdit.Text in ['0'..'9']) then
begin
ShowMessage('неверный формат!');
SrokEdit.Text:='';
Exit;
end;
end;

но ругается:
[Error] LightsUnit.pas(142): Incompatible types: 'TCaption' and 'Char'

вразумите пожалуйста, возможно ли их привести к общему формату??

---

Anatoly Podgoretsky   (2007-12-12 13:11:00) [21]

> Alexandr Malygin  (12.12.2007 13:03:00)  [0]

Как думаешь может ли входить '123' в множество '0'..'9'

---

clickmaker   (2007-12-12 13:11:00) [22]

> целые и нет

для "нецелых" нужно еще DecimalSeparator включить в набор допустимых символов

---

Desdechado   (2007-12-12 13:09:00) [23]

Посмвольно нужно проверять, а не длинную строку сравнивать с одной цифрой в виде символа

> только цифры (целые и нет)
Что такое нецелая цифра? o_O

---

Страницы:   < 1 2 >

Наверх