[Ticksy]

Имеется некий текст и регулярное выражение. Надо найти все значения, которые подходят под это регулярное выражение и записать в массив. Как это сделать?

[Uniq!]

Как вариант взять стандартную функцию поиска и замены текста и посмотреть как она работает.
Функция из строки выделяет подстроку по определённому правилу, см внутри функции, и меняет текст, т.е. работает с "подстрокой"

Функция называется StringReplace
Пример:

Код:

var
  before, after : string;

begin
  // Попытка заменить все вхождения A на THE
  before := 'This is a way to live A big life';

  after  := StringReplace(before, ' a ', ' THE ',
                          [rfReplaceAll, rfIgnoreCase]);
  ShowMessage('Before = '+before);
  ShowMessage('After  = '+after);
end;
Before = This is a way to live A big life
After = This is THE way to live THE big life

Сама функция:

Код:

function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;
var
  SearchStr, Patt, NewStr: string;
  Offset: Integer;
begin
  if rfIgnoreCase in Flags then
  begin
    SearchStr := AnsiUpperCase(S);
    Patt := AnsiUpperCase(OldPattern);
  end else
  begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do
  begin
    Offset := AnsiPos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
  end;
end;

[Ticksy]

Uniq!, нет, не то. мне не надо замену делать.

Имеется выражение <[a-zA-Z][a-zA-Z0-9]*>, имеется текст:

<tag1>
Text TEXT
</tag1>

<tag222>
Текст текст
</tag222>

Получить следующий массив:

tag1
tag222

[Sky.NET]

Переменной присваиваешь текст.
Ищешь тег <tag>(Pos('<tag>', S))
Ищешь тег </tag>(Pos('</tag>', S))
С позиции после <tag> до позиции </tag> копируешь в переменную/список (Copy(S, x, y))
Удаляешь всё перед </tag>, включая и его тоже, чтобы не попался при следующем поиске (Delete(S, 1, P))
И заново, т.е. цикл.

UPD
Или тебе нужно записать все встречающиеся теги?

[lmikle]

Вообще, похоже на xml/html. Для этого возиться с RegExp'ами совершенно не обязательно. Если у тебя реально wellformed xml, то можно воспользоваться TXMLDocument и потом просто пройтись по узлам. Если нет, то можно воспользоваться MS HTML парсером.

[Ticksy]

Или тебе нужно записать все встречающиеся теги?

Да, как получить содержимое внутри тегов я знаю. Теперь надо получить список тегов.

Вообще, похоже на xml/html. Для этого возиться с RegExp'ами совершенно не обязательно. Если у тебя реально wellformed xml, то можно воспользоваться TXMLDocument и потом просто пройтись по узлам. Если нет, то можно воспользоваться MS HTML парсером.

По сути это и есть HTML. Сначала хотел использовать XML, но геморойно как и размечать так и парсить. Потом JSON - тоже геморойно парсить. Решил с помощью своих тегов размечать...

[Sky.NET]

Ну собственно найти теги можно также, только
первым находить '</', т.к. '<' присутствует и в отрывающем и в закрывающем теге, и вторым '>'. И если в списке нет найденного тега, добавить в список.