Отбор файлов по нескольким расширениям.

Форумы КомпонентыОтбор файлов по нескольким расширениям. ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#1: 2016-03-26 22:25:10 ЛС | профиль | цитата

Отбор файлов по нескольким расширениям за один проход по каталогу.
Компонент и пример в архиве. (Иконку пока не придумал.)
Перезалито : multiext.rar

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

multiext.rar [1.3KB] [446]

Ответов: 8928

Рейтинг: 823

#2: 2016-03-26 22:37:08 ЛС | профиль | цитата

Tad, немного времени всё же потрачено

А поддержка осуществляться будет?

карма: 19

Ответов: 2059

Рейтинг: 132

#3: 2016-03-26 22:52:01 ЛС | профиль | цитата

Леонид писал(а):

А поддержка осуществляться будет?

Это не обязательное условие.
Художник пишет не для галерей, а для человеков, или человекоф -как это будет по русски?
Tad, а если в пейзаже дать такую перспективу:
Верхнюю точку Extensions сделать голубой - т.е. Определяет массив для чтения значения (перебор значений до посинения)?
Скорострельность меньше, но универсальней и удобней.

карма: 6

Ответов: 9906

Рейтинг: 351

#4: 2016-03-26 23:25:19 ЛС | профиль | цитата

И чё, неужели работает

карма: 9

Ответов: 8928

Рейтинг: 823

#5: 2016-03-26 23:29:30 ЛС | профиль | цитата

flint2, нет, Художник (Писатель, Композитор) пишет потому, что не может не писать, журналист пишет для людей и денег

Galkov,

Леонид писал(а):

А поддержка осуществляться будет?

карма: 19

Ответов: 2059

Рейтинг: 132

#6: 2016-03-26 23:35:05 ЛС | профиль | цитата

Леонид, я тебя уважаю!

карма: 6

Ответов: 9906

Рейтинг: 351

#7: 2016-03-26 23:54:51 ЛС | профиль | цитата

Вообще-то, я не проверял...
Удивился просто: у __DelimiterLast входные параметры -- это как бы два PChar-а.
А не то, что нарисовано...

Общим видом овладели - теперь подробности не надо пропускать ((с) Жванецкий)
Хотя бы в четырех строках кода, что ли...

карма: 9

Ответов: 2059

Рейтинг: 132

#8: 2016-03-27 00:06:41 ЛС | профиль | цитата

PChar от Char-а чем отличается? - количеством, а качество одно и тоже.
Достаточно одной таблетки.
Tad, забыл _data_Extensions:THI_Event; и _prop_extensions:=Readstring(_Data,_data_Extensions,_prop_extensions);
http://forum.hiasm.net/forum_serv.php?q=56&id=4253 С иконкой.

карма: 6

Ответов: 16884

Рейтинг: 1239

#9: 2016-03-27 16:01:47 ЛС | профиль | цитата

flint2 писал(а):

Tad, забыл

Да, забыл из .ini-файла "удалить" верхнюю точку. Думаю, что лишняя она.
Перезалил в первом посте.
Кстати, прекрасно работает и просто Ext :=__DelimiterLast(PChar( FileName), '.') + ',';, которое, к слову, применяется в коловской функции ExtractFileExt

Из kol.pas

function ExtractFileExt( const Path : String ) : String;
var P: PChar;
begin
  P := __DelimiterLast( PChar( Path ), '.' );
  Result := P;
end;

multiext.zip

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1 multiext.zip [1.5KB] [415]

Форумы КомпонентыОтбор файлов по нескольким расширениям. ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)