| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
поиск новых файлов [D7, Win2k]
Konstantin © (2009-11-27 13:14:00)Доброго времени суток!
есть такой вопрос, есть програмка которая ищет все файлы в определенной директории
procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
FindRes:Integer;
begin
ListBox1.Clear;
FindRes:=FindFirst('c:\test\*.*',faAnyFile,SR);
While FindRes=0 do öèêë
begin
if ((SR.Attr and faDirectory)=faDirectory) and
((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
ListBox1.Items.Add(SR.Name);
FindRes:=FindNext(SR);
end;
FindClose(SR);
ListBox1.Items.SaveToFile('C:\test.txt');
end;
надо сделать чтобы при первом нажатии на кнопку он вывел весь список файлов которые есть в директории, в следующий раз когда нажимаеш надо чтоб выводил только те файлы которые добавили в эту папку после последнего поиска если новых файлов нету то листбокс остается пцустым. Подскажи те кто знает как это реалтзовать? а то никак неполучается
Konstantin (2009-11-27 14:49:00) [1]понятно, просто думал может есть какой способ его вывести если там нетолько текст содержится
Медвежонок Пятачок (2009-11-27 14:44:00) [2]ну чего неясно-то?
файл твой НЕ ТЕКСТОВЫЙ.
а листбоксу наплевать на расширение.
назови файл хоть
"файл.стопудовонетектовый"
листбокс все равно всосет его, если он реально только текст содержит.
Konstantin (2009-11-27 14:41:00) [3]а как нибудь его можно загрузить? в лист бокс или нет?
Медвежонок Пятачок (2009-11-27 14:39:00) [4]Кроме этого содержимого в нем есть еще кое что, чего ты не видишь.
А это содержимое (скопированное сюда) в лист бокс как раз грузится без проблем
Konstantin (2009-11-27 14:37:00) [5]<MP:T> 2.1,Product number,,,NONE
<MP:T> 2.2,Hardware revision,,,NONE
<MP:T> 2.3,Software revision,,,NONE
<MP:T> 2.4,Bartrack number,,,NONE
его содержимое
Медвежонок Пятачок (2009-11-27 14:35:00) [6]значит в нем не текст
Konstantin (2009-11-27 14:33:00) [7]файл с расширением cri в нем нажодится текст, мне его надо вывести
ListBox2.Items.LoadFromFile('C:\test\1.cri');
таким способом неполучается
Медвежонок Пятачок (2009-11-27 14:20:00) [8]картину шишкина например?
Konstantin (2009-11-27 14:16:00) [9]спасибо, я уже нашел решение, но возникла другая проблема, как вывести в листбокс содердимое файла, не текстового?
Leonid Troyanovsky (2009-11-27 13:35:00) [10]
> Konstantin (27.11.09 13:14)
> знает как это реалтзовать? а то никак неполучается
See sr.FindData.ftCreationTime
--
Regards, LVT.
| |
