Показать все Расширения в директории и суб директории.

@GreenPanda · Регистрация: 29.08.2010

Студворк — интернет-сервис помощи студентам

надо Показать все Расширния в директории и суб директории вот только не знаю как зделать (
подскажитье пожалуйста )

deathNC · 19.09.2011, 22:16

ExtractFileExt(FileName) - даст расширение из имени файла FileName
Ну а искать все файлы в папках и подпапках - TSearchRec...

@GreenPanda · 19.09.2011, 23:05 **[ТС]**

Сообщение от deathNC

ExtractFileExt(FileName) - даст расширение из имени файла FileName
Ну а искать все файлы в папках и подпапках - TSearchRec...

спасибо но у меня теперь другая проблема не знаю как добавить ВСЕ расширения из filelistboxа (

deathNC · 19.09.2011, 23:08

Ну, там есть свойство Items?
Если да, то:

Delphi

1 2	for i := 0 to FileListBox1.Items.Count - 1 do s := ExtractFileExt(FileListBox1.Items.Item[i]);

@GreenPanda · 19.09.2011, 23:16 **[ТС]**

Сообщение от deathNC

Ну, там есть свойство Items?
Если да, то:

Delphi

1 2	for i := 0 to FileListBox1.Items.Count - 1 do s := ExtractFileExt(FileListBox1.Items.Item[i]);

показывает только последний итем

deathNC · 19.09.2011, 23:20

Ну эт понятно, это и из моего примера видно. Я просто тебе показал, как их перебрать...

Delphi

var
  exts: TStrings;
begin
  exts := TStringList.Create;
  for i := 0 to FileListBox1.Items.Count - 1 do
    begin
      s := ExtractFileExt(FileListBox1.Items.Item[i]);
      // тут ты решаешь, добавлять s в какой-то там твой список, или не бодавлять
      exts.Add(s);
    end;
end;

@GreenPanda · 19.09.2011, 23:27 **[ТС]**

спасибо )

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228
		1
	Показать все Расширения в директории и суб директории. 19.09.2011, 22:13. Показов 1155. Ответов 6 Метки нет (Все метки) надо Показать все Расширния в директории и суб директории вот только не знаю как зделать ( подскажитье пожалуйста ) 0

deathNC 1904 / 1015 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	19.09.2011, 22:16	2
	ExtractFileExt(FileName) - даст расширение из имени файла FileName Ну а искать все файлы в папках и подпапках - TSearchRec... 1

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228
	19.09.2011, 23:05 [ТС]	3
	Сообщение от deathNC ExtractFileExt(FileName) - даст расширение из имени файла FileName Ну а искать все файлы в папках и подпапках - TSearchRec... спасибо но у меня теперь другая проблема не знаю как добавить ВСЕ расширения из filelistboxа ( 0

@GreenPanda 178 / 29 / 3 Регистрация: 29.08.2010 Сообщений: 228
	19.09.2011, 23:27 [ТС]	7
	спасибо ) 0

Опции темы