Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> команда Dir, вывод даты создания текстового файла 
V
    Опции темы
Martisha
Дата 28.11.2008, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
добрый день)
вопрос такой:
есть код, в котором сканируется папка и имена найденных в ней текстовых файлов добавляются в ListBox, что нужно добавить в код чтобы выводилась вместе с именем и дата создания файла? 
вот код:
Код

Procedure TForm1.ScanFolder(Dir:String);
   Var
 SearchRec:TSearchRec;
begin
 try
  if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir); 
FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then 
   repeat
      begin
       if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then 
       EditFile(Dir+SearchRec.name); //здесь мы вызываем функцию и присваиваем имя файла
      end;
   until FindNext(SearchRec)<>0;
  FindClose(SearchRec);
 finally
 end;
end;


Это сообщение отредактировал(а) Martisha - 28.11.2008, 08:21
PM MAIL ICQ   Вверх
mrbrooks
Дата 28.11.2008, 08:53 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: нет
Всего: 306
Martisha, в данном случае ты делаешь велосипед на мой взгляд. в VCL есть компонент FileListBox. 
Его свойство
Drive - определяет диск 
Directory - определяет каталог - по умолчанию корневой
Mask -  определяет фильтрацию (в твоем случае - *.txt) 
PM MAIL   Вверх
AntonN
Дата 28.11.2008, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18
дата создания хранится в SearchRec.FindData.ftCreationTime, передавай еще одним параметром в EditFile()

Это сообщение отредактировал(а) AntonN - 28.11.2008, 09:01


--------------------
user posted image
PM MAIL WWW   Вверх
aleksh
Дата 28.11.2008, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
у структуры TSearchRec помимо значения name есть и date, можно его через datetostr() передавать в listbox, например функцие EditFile() передавать еще одну переменную
но все же, Martisha, уверенна, что именно это надо?
PM MAIL   Вверх
Martisha
Дата 28.11.2008, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(mrbrooks @  28.11.2008,  08:53 Найти цитируемый пост)
в VCL есть компонент FileListBox. 

подробнее..если можно smile 


Цитата(AntonN @  28.11.2008,  08:56 Найти цитируемый пост)
дата создания хранится в SearchRec.FindData.ftCreationTime

ятак делала, но вылазят ошибки(

Добавлено через 45 секунд
Цитата(aleksh @  28.11.2008,  09:04 Найти цитируемый пост)
но все же, Martisha, уверенна, что именно это надо?

да, это очень нужно

Добавлено через 5 минут и 6 секунд
Цитата(aleksh @  28.11.2008,  09:04 Найти цитируемый пост)
у структуры TSearchRec помимо значения name есть и date

на date ругается
PM MAIL ICQ   Вверх
aleksh
Дата 28.11.2008, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
Цитата(Martisha @  28.11.2008,  09:08 Найти цитируемый пост)
на date ругается

видмо память меня подводит. в справке по TSearchRec все довольно хорошо описано, есть там атрибут хранящий дату и время, в переменно, если не путаю, типа datetime, ее нужно отдельно в строку переводить, может по этому ошибки?
PM MAIL   Вверх
Martisha
Дата 28.11.2008, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(aleksh @  28.11.2008,  09:28 Найти цитируемый пост)
может по этому ошибки? 

может..

Цитата(aleksh @  28.11.2008,  09:28 Найти цитируемый пост)
в справке по TSearchRec все довольно хорошо описано

сейчас почитаю)
PM MAIL ICQ   Вверх
mrbrooks
Дата 28.11.2008, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: нет
Всего: 306
Цитата(Martisha @  28.11.2008,  09:32 Найти цитируемый пост)
в справке по TSearchRec все довольно хорошо описано

сейчас почитаю) 


о FileListBox кстати тоже  smile 
PM MAIL   Вверх
Martisha
Дата 28.11.2008, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(mrbrooks @  28.11.2008,  09:37 Найти цитируемый пост)
о FileListBox кстати тоже   

 smile 
PM MAIL ICQ   Вверх
Christoph
Дата 28.11.2008, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Цитата(aleksh @ 28.11.2008,  09:04)
у структуры TSearchRec помимо значения name есть и date

Там нету такого поля date


FindData (Windows only) contains additional information such as the file creation time, last access time, and both the long and short file names.

Это сообщение отредактировал(а) Christoph - 28.11.2008, 12:14


--------------------
user posted image
PM MAIL ICQ   Вверх
THandle
Дата 28.11.2008, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

  TSearchRec = record
    Time: Integer;
    Size: Int64;
    Attr: Integer;
    Name: TFileName;
    ExcludeAttr: Integer;
{$IFDEF MSWINDOWS}
    FindHandle: THandle  platform;
    FindData: TWin32FindData  platform;
{$ENDIF}
{$IFDEF LINUX}
    Mode: mode_t  platform;
    FindHandle: Pointer  platform;
    PathOnly: String  platform;
    Pattern: String  platform;
{$ENDIF}
  end;


Дату и время хранит поле Time. smile
PM   Вверх
aleksh
Дата 28.11.2008, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
toTHandle: спасибо
все таки, пора по новой инсталить делфи, а то как-то неловко, в самом деле...
PM MAIL   Вверх
Martisha
Дата 28.11.2008, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1
Цитата(Christoph @  28.11.2008,  12:11 Найти цитируемый пост)
Там нету такого поля date

точно)

THandle, и что с этим делать?  smile

Добавлено через 2 минуты и 12 секунд
mrbrooks, 
Цитата(mrbrooks @  28.11.2008,  08:53 Найти цитируемый пост)
Mask -  определяет фильтрацию (в твоем случае - *.txt) 

ну с этим понятно, а вот
Цитата(mrbrooks @  28.11.2008,  08:53 Найти цитируемый пост)
Drive - определяет диск 
Directory - определяет каталог - по умолчанию корневой

это не совсем ясно..в справке очень мало написано
PM MAIL ICQ   Вверх
aleksh
Дата 28.11.2008, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13
Цитата(Martisha @  28.11.2008,  12:55 Найти цитируемый пост)
и что с этим делать?

конвертировать в нужный формат smile
PM MAIL   Вверх
Christoph
Дата 28.11.2008, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
FindData хранит время создания файла. Валер ты читал мой пост выше? Хотя написано что в Time хранться тоже время создания, надо проверить

Это сообщение отредактировал(а) Christoph - 28.11.2008, 13:29


--------------------
user posted image
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0991 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.