Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

поиск новых файлов   Найти похожие ветки 

 
Konstantin   (2009-11-27 13:14) [0]

Доброго времени суток!

есть такой вопрос, есть програмка которая ищет все файлы в определенной директории

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;

надо сделать чтобы при первом нажатии на кнопку он вывел весь список файлов которые есть в директории, в следующий раз когда нажимаеш надо чтоб выводил только те файлы которые добавили в эту папку после последнего поиска если новых файлов нету то листбокс остается пцустым. Подскажи те кто знает как это реалтзовать? а то никак неполучается


 
Leonid Troyanovsky ©   (2009-11-27 13:35) [1]


> Konstantin   (27.11.09 13:14)  

> знает как это реалтзовать? а то никак неполучается

See sr.FindData.ftCreationTime

--
Regards, LVT.


 
Konstantin   (2009-11-27 14:16) [2]

спасибо, я уже нашел решение, но возникла другая проблема, как вывести в листбокс содердимое файла, не текстового?


 
Медвежонок Пятачок ©   (2009-11-27 14:20) [3]

картину шишкина например?


 
Konstantin   (2009-11-27 14:33) [4]

файл с расширением cri в нем нажодится текст, мне его надо вывести

ListBox2.Items.LoadFromFile("C:\test\1.cri");

таким способом неполучается


 
Медвежонок Пятачок ©   (2009-11-27 14:35) [5]

значит в нем не текст


 
Konstantin   (2009-11-27 14:37) [6]

<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:39) [7]

Кроме этого содержимого в нем есть еще кое что, чего ты не видишь.

А это содержимое (скопированное сюда) в лист бокс как раз грузится без проблем


 
Konstantin   (2009-11-27 14:41) [8]

а как нибудь его можно загрузить? в лист бокс или нет?


 
Медвежонок Пятачок ©   (2009-11-27 14:44) [9]

ну чего неясно-то?

файл твой НЕ ТЕКСТОВЫЙ.

а листбоксу наплевать на расширение.
назови файл хоть
"файл.стопудовонетектовый"

листбокс все равно всосет его, если он реально только текст содержит.


 
Konstantin   (2009-11-27 14:49) [10]

понятно, просто думал может есть какой способ его вывести если там нетолько текст содержится



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.072 c
15-1340523107
brother
2012-06-24 11:31
2013.03.22
Помогите вспомнить фильм...


15-1352825506
>|<
2012-11-13 20:51
2013.03.22
Определение границ максимальной плотности точек


15-1339585593
KSergey
2012-06-13 15:06
2013.03.22
Про собеседы-то зачем ветку удалили?!


6-1258651624
DesWind
2009-11-19 20:27
2013.03.22
Формирование запроса idHTTP


15-1338216754
leklerk
2012-05-28 18:52
2013.03.22
Когда нужно использовать ООП?