Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Движение шашки по доске Помогите с Delphi совсем туго. На пространстве формы изображена шахматная доска. Шашка зеленого цвета движется по главной диагонали доски взад-вперед с дискретом 0.5 сек. Запуск движе-ния –... https://www.cyberforum.ru/ delphi-beginners/ thread1838476.html Delphi Delphi: combobox - label
нужна помощь в Combobox 3 строки: 30,40,50 нужно чтобы когда выбираешь 30, в label вышла цифра 2040 а если 40 - 2340, 50 - 2640 спс заранее булен просит исправьте ошибку если понимаете...
Delphi Программа угадывающее число, загаданное вами до 100 Написать программу, которая будет угадывать за минимальное количество шагов число, загаданное вами до 100. При выводе числа программой вы должны ввести: -1 - ваше число меньше выведенного, 1 - ваше... https://www.cyberforum.ru/ delphi-beginners/ thread1838404.html Delphi Определить номер позиции первой буквы в строке https://www.cyberforum.ru/ delphi-beginners/ thread1838365.html
буква может быть маленькой или большой русского или англ. алфавита. procedure TForm1.Button1Click(Sender: TObject); var st:string; i,j:integer; begin st:=Edit1.Text; j:=0; for i:=Length(st)...
Создание приложения "Будильник" Delphi
Создайте приложение "Будильник". На форме находятся однострочный редактор для ввода времени срабатывания будильника и кнопка «Пуск», при нажатии на которую будильник становится активным. Второй...
Delphi По нажатию pgUp, PgDn изменять стиль закраски прямоугольника При помощи клавиш pgUp,PgDn изменяла бы способ окраски прямоугольника(т.е. косая черта, прямая линия и т.д. через массив)Если код но там ошибка при нажатии клавиши PgDn должно закрашиваться... https://www.cyberforum.ru/ delphi-beginners/ thread1838312.html
Delphi Простой вывод текста в stringgrid Здравствуйте! Подскажите, пожалуйста, как проще вывести текст в StringGrid https://www.cyberforum.ru/ delphi-beginners/ thread1838204.html Delphi Задания 2 уровня
Создайте приложение "Таблица умножения", состоящее из компонента StringGrid, поля ввода Edit и кнопки «Вычислить». В компонент Edit заносится максимальное число строк и столбцов таблицы (по умолчанию...
Delphi Моделирование динамического распределения памяти в операционной системе https://www.cyberforum.ru/ delphi-beginners/ thread1838147.html
Написать программу, моделирующую динамическое распределение памяти в операционной системе. В качестве модели оперативной памяти программа должна использовать байтовый массив размера не менее 1024...
Delphi Как проверить освобождена ли память? https://www.cyberforum.ru/ delphi-beginners/ thread1838139.html
Допустим есть переменная St:TmemoryStream; Как проверить освобождена ли память после нее? Что бы было примерно так if память не освобождена then begin st.free; end else begin
Delphi "Подсчитать количество гласных букв в последнем слове и вывести последнее слово".Здесь только считает со всех
procedure TForm1.Button1Click(Sender: TObject); const glasnye='аеёиоуыэюяАЕЁИОУЫЭЮЯ'; Var i,c:integer; u,a:string; begin u:=Edit1.Text; a:=Edit2.Text; c:=0;
Delphi Ошибка Access violation https://www.cyberforum.ru/ delphi-beginners/ thread1837993.html
Здраствуйте. Такая ошибка возникла - я создал массив объектов и когда я пытаюсь занести туда данные, то возникает ошибка Access violation. Помогите устранить, пожалуйста. unit Modul8; interface ...
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
31.10.2016, 08:25 0

Ввод даты в заданном формате. - Delphi - Ответ 9708928

31.10.2016, 08:25. Показов 767. Ответов 1
Метки (Все метки)

Ответ

Мне кажется что дату нужно ввести, а потом проверить и если неверно, то повторить ввод. Там мало того что нужно ввести по заданной маске, еще нужно чтобы день был от 1 до 28, 29, 30, 31 в зависимости от месяца и года, месяц от 1 до 12.
Например так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var d:TDate;
begin
DateSeparator:='-';
ShortDateFormat:='dd-mm-yy';
d:=StrTodateDef(StringGrid1.Cells[0,2],0);//проверим ввод даты
if d=0 then //если неверно, извещаем и ожидаем нового ввода
 begin
  showmessage('Введите правильную дату в формате дд-мм-гг');
  StringGrid1.Cells[0,2]:='';
  exit
 end;
Edit1.Text:=DateToStr(d);
end;


Вернуться к обсуждению:
Ввод даты в заданном формате. Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2016, 08:25
Готовые ответы и решения:

Запрос у пользователя даты в кратком формате и ее вывод в полном формате
Нужна программа запрашивающую у пользователя дату в кратком формате дд.мм.гг (например:...

Ввод даты в заданном формате
Еще один вопрос про дату:) Мне тоже нужно вводить дату, но надо сделать это в заданном формате....

Валидность даты в заданном формате (RegExp wanted)
Привет, Релиб! Подскажите, пожалуйста, как верно составить регулярное выражение для проверки...

Ввод текста в TextBox в заданном формате
Добрый день, уважаемые коллеги! У меня такой вопрос. Нужно в TextBox (или в MaskedTextBox, пока не...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2016, 08:25

Написать программу ввод даты в формате ДД.ММ.ГГГГ
которая запрашивает от пользователя ввод даты в формате ДД.ММ.ГГГГ, и не позволяет ему ввести...

Запросить на ввод значения часов и минут и вывести их в заданном формате
Доброго времени суток, форумчане. Просьба помочь с простыми программами на С++. Только начал...

Добавление текущей даты к имени файла при нестандартном формате вывода даты
Приветствую ! Давно и успешно используется код, который мне когда-то подсказали тут на форуме ...

Вывод даты в ясейку Excel в формате даты
Здравствуйте. Пытаюсь вывести из табличной части обработки 1с дату в ячейку Excel: Лист.Cells(Стр...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.