|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.09.2007, 22:37 | #1 |
Пользователь
Регистрация: 10.09.2007
Сообщений: 29
|
Поиск по дате создания файла
Подскажите пожалуйста код или хотя бы идею как реализовать поиск по Дате создания файла, в данном случае *.dbf (в диапазоне с такой то по такую дату, скорее всего использовать DateTimePicker1 и DateTimePicker2), причем отображать найденные таблицы нигде не надо, как бы найти виртуально. А затем из этих найденных таблиц осуществить поиск через DateTimePicker3 и DateTimePicker4 по полям даты. И вот эти найденные записи из нескольких таблиц отобразить в одну на форме (через ADOQuery), я думаю что для этого надо как то создать временную пустую таблиЗцу ?
Заранее Благодарен! |
14.09.2007, 14:54 | #2 |
Форумчанин
Регистрация: 15.02.2007
Сообщений: 183
|
после поиска по форуму вот что я нашел.
procedure Find(Dir,Ext:String);
var SR:TSearchRec; //Информация о файле: Имя, Атрибуты, Размер и т.д. FName:String; begin //Поиск в каталоге первой записи, //соответствующей имени файла и набору атрибутов if FindFirst(Dir+'*.'+Ext,faAnyFile,SR )=0 then //Поиск всех последующих записей repeat FName:=Dir+SR.Name; Form1.Memo1.Lines.Add(FName); until FindNext(SR)<>0; //Поиск в подкаталогах if FindFirst(Dir+'*.',faDirectory,SR)= 0 then repeat with SR do if (Attr and faDirectory<>0) and (Name[1]<>'.') then Find(Dir+Name+'\',Ext); until FindNext(SR)<>0; end; procedure TForm1.Button1Click(Sender: TObject); begin //Edit1 - где искать //Edit2 - расширение (например, exe) Find(Edit1.Text,Edit2.Text); end; я так понимаю вместо расширения можно и дату создания поставить.
Знать все невозможно, в силу того, что жить бы стало неинтересно.
Последний раз редактировалось А. Долматов; 14.09.2007 в 15:00. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открытие Excel файла на текущей дате | Million | Помощь студентам | 1 | 04.09.2008 06:44 |
Поиск по дате. в чем ошибка?? | missy | БД в Delphi | 6 | 20.06.2008 13:06 |
Delphi Поиск по дате Именинника | Махор | Помощь студентам | 8 | 01.12.2007 20:46 |
Поиск по дате создания файла | kayman | Общие вопросы Delphi | 1 | 14.09.2007 10:36 |
как организовать поиск по дате... | Pitbull | БД в Delphi | 18 | 24.06.2007 22:28 |