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

Вниз

поиск по маске   Найти похожие ветки 

 
Филипп   (2002-07-11 02:01) [0]

Уважаемые Мастера, есть прблема.

Сушествует список (допустим TListBox) в котором хранятся полные пути (с именами самих файлов) к каким либо файлам. Проблема состоит в том, как проще организовать поиск по маске (например ??ааа.*) среди этого содержимого. Есть вариант написать анализатор каждой строки, но мне кажется, что это не очень быстро и как-то некрасиво. Как лучше поступить?


 
Юрий Зотов   (2002-07-11 02:29) [1]

См. MatchesMask в справке.

uses
..., Mask;

procedure Filter(Source, Target: TStrings; Mask: string);
var
i: integer;
begin
Target.Clear;
for i := 0 to Source.Count - 1 do
if MatchesMask(Source[i], Mask) then Target.Add(Source[i])
end;



 
Филипп   (2002-07-11 02:37) [2]

Большое спасибо



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

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

Наверх




Память: 0.44 MB
Время: 0.004 c
1-70720
Leviathan
2002-07-11 15:37
2002.07.22
TCalendar и язык в названиях месяцев


1-70730
Александр
2002-07-11 15:44
2002.07.22
ListBox


3-70635
ASM
2002-07-01 15:20
2002.07.22
FormattedMemo?


3-70597
Fox_Home
2002-06-28 04:46
2002.07.22
Как избавиться от появления лишних данных в базе?


1-70799
Пастор
2002-07-05 08:57
2002.07.22
Реестр или ini ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский