Регулярные выражения

[Marsik]

Здравствуйте. Скачал модуль Regexpr.pas но никак не пойму как его установить, и как применять, пожалуйста обьясните/ Гугл не рулит

[Greblin]

А его не надо устанавливать, его просто надо добавить в uses
Вот примерчик

// Очень простой пример - извлечение чисел из введённой строки.
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  // добавляем нужный модуль
  RegExpr in 'RegExpr.pas';
var
  // нам необходим экземпляр класса TRegExpr
  RegExp: TRegExpr;
  s: string;
  
begin
  // выводим запрос и считываем строку
  Write('Enter a string containing numbers: ');
  Readln(s);
  // создаём объект
  RegExp := TRegExpr.Create;
  // гарантирует освобождение занятой объектом памяти
  try
    // регулярное выражение находится в свойстве Expression
    RegExp.Expression := '-?\d+';
    // ищем первое совпадение с помощью функции
    // Exec(const AInputString : string) : boolean, которая вернет true,
    // если в строке AInputString будет найдено совпадение c
    // регулярным выражением, хранящимся в свойтве Expression
    if RegExp.Exec(s) then
    // если находим
    begin
      Writeln('Entered string contains numbers: ');
      repeat
      // выводим найденное выражение, которое хранится в Match[0]
        Writeln(RegExp.Match[0]);
      // и продолжаем поиск
      until not RegExp.ExecNext;
    end
    else
    // иначе - сообщаем, что ничего не нашли
      Writeln('Entered string contains no numbers!');
  finally
    RegExp.Free;
  end;
  Readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

как его установить

в секции uses своей проги его пропишите и юзайте функции из него

[Marsik]

RegExpr in 'RegExpr.pas'; Я этот пример на винграде тоже видел но дело в том что когда Я так добавляю в uses RegExpr in 'RegExpr.pas';
то выходит ошибка: "[Error] Unit1.pas(7): ',' or ';' expected but 'IN' found"

[Greblin]

Добавьте RexExpr.pas в проект (Add to project) и уберите in 'RegExpr.pas'