| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как проверить, что введенный текст в DBEdit соответствует формату [Delphi]
Дина © (2004-11-18 09:45:00)Как проверить, что введенный текст в DBEdit соответствует формату даты?
Anatoly Podgoretsky (2004-11-19 07:48:00) [1]tryStrToDateTime exceptне оно end;
КиТаЯц (2004-11-19 07:34:00) [2]Тьфу, сам сейчас прочитал что написал... %)
Это было "соответствует ли формату целые ЧИСЛА"... Для даты надо считать виндусовские переменные
var ShortDateFormat: string;
var LongDateFormat: string;
(Unit SysUtils)
и, соттветственно, сделать похожую проверку...
КиТаЯц (2004-11-19 07:29:00) [3]Да, игры тут не при чем... действительно... :(
Лана, поможем девушке :)
DBEdit.onExit:= DBEdit.Exit;
DBEdit.Exit(sender: tObject);
var i: integer;
begin
for I:=1 to length(DBEdit.text) do
if not (DBEdit[i] in ['0'..'9'])
then begin
showmessage('Цифири давай!');
DBEdit.SelectAll;
DBEdit.SetFocus;
end;
end;
Пишу на ходу придумывая, т.ч. может орфографическая :) ошибка быть или что-то не сработать...
Bryke (2004-11-18 18:00:00) [4]А причем здесь конференция "игры" ??
| |
