[kenshi245]

Доброй ночи, есть скрипт, который при помощи регулярных выражений ищет буквы t в тексте 'test', но если поставить modifier i чтобы не реагировал на регистр, то при запуске будет выводить ошибку (не при компиляции, а уже в работе):

Код:

uses
Regexpr;

var
RegExp: TRegExpr;
s:string;

begin
    RegExp := TRegExpr.Create;

    //Если поставить true пишет ошибку!
    RegExp.ModifierI := true;
    
    RegExp.Expression := 't';
    s:='test';
    if RegExp.Exec(s) then
    begin
      repeat
        Print(RegExp.Match[0]);
      until not RegExp.ExecNext;
    end
    else Print('Не Найдено');
    RegExp.Free;
end.

Скрипт:t
Script Error: Module: "Tutorial1", Line: 19, Message: Access violation at address 00000000. Read of address 00000000

[lmikle]

Я тебе уже отвечал, что там этот модифаер по другому указывается.
Вот пример:

Код:

uses System.RegularExpressions;

procedure TForm2.Button1Click(Sender: TObject);
var
  RE : TRegEx;
begin
  RE := TRegEx.Create('t',[roIgnoreCase]);
  ShowMessage(IntToStr(RE.Matches('test').Count));
  ShowMessage(IntToStr(RE.Matches('Test').Count));
end;

Показывает 2 раза "2".

[kenshi245]

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

Я тебе уже отвечал, что там этот модифаер по другому указывается.
Вот пример:

Код:

uses System.RegularExpressions;

procedure TForm2.Button1Click(Sender: TObject);
var
  RE : TRegEx;
begin
  RE := TRegEx.Create('t',[roIgnoreCase]);
  ShowMessage(IntToStr(RE.Matches('test').Count));
  ShowMessage(IntToStr(RE.Matches('Test').Count));
end;

Показывает 2 раза "2".

Все равно показывает ошибку

FindCoordsWithRegExp3 (9): Undeclared identifier "roIgnoreCase"

Я не могу использовать

Код:

uses System.RegularExpressions;

В моей версии доступно только

Код:

uses
Regexpr;

[lmikle]

А доку почитать? Какая версия Дельфей?
То, что я написал - проверено на 10 Berlin, но в доке, вроде, написано, что это начиная с XE...