Вывод в ListView каталогов по заданному критерию (TDirectory, TPath) проблема с кириллицей

[Seikeron]

Здравствуйте.
Создаю программу, которая выводит в ListView директории по введённому в Searchbox критерию:

procedure TForm6.SearchBox1InvokeSearch(Sender: TObject);
var
  s:string;
  LW: TListItem;
begin
  ListView1.Items.Clear;
  for s in TDirectory.GetDirectories('D:\Тест\', '*' + SearchBox1.Text + '*') do
  begin
    LW := ListView1.Items.Add;
    LW.Caption := s;
  end;
end;

В папке "Тест" лежат 5 папок с разными названиями типа "Новая пАпКА (1)", "ноВАя пАпкА (2)", "повая папКА (3)", "овая пап (4)","Нов папк (5)" (все названия кириллицей).

Проблема в том, что поиск происходит только в том случае, если в seachbox записан критерий с точным соответствием регистру букв, то есть, если ввести "новая папка (1)" результат будет нулевым.

Как побороть данную проблему?

[Shouldercannon]

Приводить искомый текст к общему виду (LowerCase/UpperCase)

[Serge_Bliznykov]

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

о есть, если ввести "новая папка (1)" результат будет нулевым.

а если ввести слово "новая" - какой будет результат?
вообще, я первый раз слышу о том, что поиск по маске может быть регистрозависимым!
Скорее всего проблема в преобразовании кириллицы из уникода в ansi при вызове системной функции Windows API.

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

Приводить искомый текст к общему виду (LowerCase/UpperCase)

Скорее всего это не поможет.
Точнее поможет, но надо либо использовать олдскульный FindFirst/FindNext, либо GetDirectories с маской *.*
и потом в цикле сравнивать с требуемым шаблоном.

[Seikeron]

Извиняюсь за долгий ответ.

а если ввести слово "новая" - какой будет результат?

Результат будет так же нулевым. Я разные варианты пробовал, если вводить "овая" ищет, но "новая" нет. С латиницей всё нормально, пробовал искать папки - ест любые.

Вообще по правде говоря, придя на работу и попробовав свой код по поиску... был удивлен насколько это долго, около минуты, что неприемлемо.
В итоге

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

олдскульный FindFirst/FindNext

решил все проблемы, и регистр ему безразличен, и скорость потрясающая.

[northener]

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

В итоге
Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
олдскульный FindFirst/FindNext
решил все проблемы, и регистр ему безразличен, и скорость потрясающая.

5 с плюсом разработчикам Турбо Паскаля и жирная тройка с минусом разработчикам Дельфи ХЕ