Доброй ночи, есть скрипт, который при помощи регулярных выражений ищет буквы 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
|