Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.07.2017, 20:27   #1
ДневнойДоширак
Новичок
Джуниор
 
Регистрация: 27.07.2017
Сообщений: 1
По умолчанию Фильтрация по дате

Помогите с кодом пожалуйста

Вот есть код:

Код:
procedure TForm1.ButtonClick(Sender: TObject);
var
  data: TDate;
begin
  data := EncodeDate(2012, 09, 07);
  ADOTable1.Filter := '[Имя поля с датой]>=#'+DateToStr(data)+'# and [Имя поля с датой]<#'+DateToStr(data+1)+'#';
  ADOTable1.Filtered := True;
end;
он работает только если я в пишу нужную дату вот сюда data := EncodeDate(2012, 09, 07); а как сделать так чтобы я мог вводить дату через Edit1 на Form1?
ДневнойДоширак вне форума Ответить с цитированием
Старый 28.07.2017, 10:23   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Да очень просто:
Код:
 w1,w2,w3,n: word ;
  stro,stro1 : string ;
   .......
  stro := Edit1.Text ;
  n := Pos(',',stro) ;
  stro1 := Copy(stro,1,n-1) ;
  w1 := StrToInt (stro1) ;
  stro := Copy(stro,n+1,32) ;
  n := Pos(',',stro) ;
  stro1 := Copy(stro,1,n-1) ;
  w2 := StrToInt (stro1) ;
  stro := Copy(stro,n+1,32) ;
  w3 := StrToInt (stro) ;
  data := EncodeDate(w1,w2,w3);
Вводить в Edit надо в виде: 2012,06,24 без пробелов.
Кто сможет проще - пусть напишет проще.
digitalis вне форума Ответить с цитированием
Старый 28.07.2017, 10:50   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Кто сможет проще - пусть напишет проще.
Проще использовать DateTimePicker для вода даты ))

И Filter с датами c подвохами. Лучше событие OnFilterRecord. А еще лучше ADOQuery вместо ADOTable и фильтровать запросом
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.08.2017, 09:12   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Цитата:
Сообщение от ДневнойДоширак Посмотреть сообщение
как сделать так чтобы я мог вводить дату через Edit1 на Form1
StrToDate поможет
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтрация по дате qqwweertyy Помощь студентам 0 22.12.2016 19:23
фильтрация по дате delfin07 C++ Builder 0 04.06.2012 09:34
Фильтрация по дате в ADO AlexSol.BY Помощь студентам 5 07.12.2010 10:32
фильтрация по текущей дате ahvahsky2008 БД в Delphi 5 04.05.2010 05:30
Фильтрация Query по дате Riddick Помощь студентам 3 10.11.2008 20:35