Delphi - Поиск символов по маске в Memo

[NanoQbit]

Исходный текстовый файл содержит строки данного вида:
(в скобках указаны длины полей и выравнивание): номер студента (4, правое), пробелы (2), номер группы (8, левое), пробелы (2), фамилия (12, левое), оценка 1 (3, правое), оценка 2 (3, правое), оценка 3 (3, правое),
например,
22 АА1-22 Петров 3 4 2
23 АБ1-22 Иванов 3 2 5
Нужно :
1)загрузить в окно редактора строки файла, представляющие студентов всех групп, имеющих фамилию, соответствующую маске с одним символом замещения * (звёздочка), заданной пользователем.
2)упорядочить строки файла по фамилиям методом пузырька, переписав их сначала в массив, и сохранить в другом файле.
* (звёздочка) – представляет любую, в том числе и пустую, последовательность символов;
Возможны три варианта:
символы...*
*...символы
символы...*...символы
Моя программа (с меню) в архиве, фамилии я отсортировал, но нужно, чтобы строки целиком менялись местами, с маской не знаю, что делать. Пожалуйста помогите, кто знает, как это делается. Заранее большое спасибо.

[Аватар]

с маской не знаю, что делать

юнит Masks. Функция MatchesMask

  s:='Петров';
  if MatchesMask(s,'П*ов') then ShowMessage('П*ов - Ok') else  ShowMessage('П*ов - No');

[NanoQbit]

MatchesMask использовать нельзя, нужно составить процедуру поиска по маске самому

[Stilet]

В чем проблема? Открой исходник MatchesMask и пепепиши его себе )