|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.12.2007, 14:00 | #1 |
Пользователь
Регистрация: 07.10.2007
Сообщений: 15
|
Имя файла по расширению
Всем привет!
В папке C:\test лежит несколько файлов с расширением txt. Как можно узнать имена всех файлов с расширение txt и как запихать их (имена) в разные переменные? Помогите пожалуйста.Заранее спасибо! |
16.12.2007, 14:13 | #2 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
FileListBox тебе в помощ!
FileListBox.mask указываеш *.txt FileListBox1.items - вот переменная TStrings с именами всех файлов filelistbox1.FileName - полный путь к выделенному файлу filelistbox1.Items[2] - только имя 3-го файлы (начинаются с 0)..это пример ---
Последний раз редактировалось GAGARIN-NEW; 16.12.2007 в 14:21. |
16.12.2007, 14:16 | #3 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Есть FindFirst, FindNext, FindClose, TSearchRec (кажется). Смотрите их в дельфи или Api подобные только более удобны, хотя сильно и не отличаются - FindClose, FindFirstFileEx, FindNextFile, WIN32_FIND_DATA.
|
16.12.2007, 16:12 | #4 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
var aa,ppppp:HWND;r,y:integer;c:tsearch rec;s,d:string;f,t:file;
begin y:=0; r:=FindFirst (s+d,faAnyFile,c); \\s+d - путь и название файла (допустим s:='D:\bla\bla\' d:='*.*' ) While r=0 do \\цикл, r возвращ 0 если файл найден begin if (c.Size=0) then r:=FindNext(c)\\ если размер файла =0 значит ищим след. файл else begin WriteLn('Find File : '+c.Name+' Size : '+inttostr(c.Size)+' Byte');\\ вывод на экран атрибутов файла(переменная С содержит атр. файла ) end; r:=FindNext(c); end; end. Это кусок моей проги для консоли, аналогично будет и для VCL. Ну а запихнутьвсе данные можно в файл или массив.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
16.12.2007, 16:27 | #5 |
Пользователь
Регистрация: 07.10.2007
Сообщений: 15
|
Понятно.Всем спасибо.
|
19.12.2007, 03:41 | #6 |
Пользователь
Регистрация: 30.11.2007
Сообщений: 10
|
А у меня вот проблема такая, короче говоря в ListView отображаются файлы, как например отобразить файлы с расширением mp3 .
Я вот так пробую : Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание файла | Nowise | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 04.04.2008 19:55 |
Код ехе файла | Micha | Общие вопросы Delphi | 4 | 09.10.2007 18:06 |
Поиск по расширению | Memories | Общие вопросы Delphi | 6 | 20.09.2007 20:03 |
Два XL файла, данные 1-го файла являются частью другого в формуле 2-го | Кот | Microsoft Office Excel | 2 | 14.08.2007 16:56 |