Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Каким поисковиком вы пользуетесь ?
Google.ru
Google.com
Rambler
Mail.ru
WebAlta
Яндекс
Апорт
Yahoo
Gogo.ru
Другим
Результаты
Другие опросы
Всего голосов:
1715
Комментарии:
4
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Автоматический формат даты в компоненте Edit
Реализация автоматического формата даты
Код
PROCEDURE TForm1.
Edit1Exit
(Sender: TObject);
BEGIN
IF Edit1.Text<>'' THEN BEGIN
TRY
StrToDate(Edit1.Text);
EXCEPT
Edit1.SetFocus;
MessageBeep(0);
raise Exception.Create('"'+Edit1.Text
+'" - некорректная дата');
END{try};
Edit1.Text:=DateToStr(StrToDate(Edit1.Text));
END{if};
END;
Разместил:
admin
| | Прочитано: 23504 | |
Смотрите также связанные новости
10.11.2024 -
Кроссворд на Delphi
10.11.2024 -
Рождение, жизнь и гибель формы
10.11.2024 -
Воспроизводим Flash-файл в своем приложении
10.11.2024 -
Работа с потоками в Delphi
10.11.2024 -
SQL-запросы в Delphi
10.11.2024 -
BlobField как Bitmap
10.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Автоматический
формат
даты
в
компоненте
Edit
Реализация
автоматического
формата
даты
КодPROCEDURE
TForm1
Edit1Exit
Sender
TObject
BEGIN
Edit1
Text&
&
#039
THEN
StrToDate
Text
EXCEPT
SetFocus
MessageBeep
raise
Exception
Create