Lines Matching refs:AStr
332 procedure SetExpression(const AStr: RegExprString);
335 procedure SetModifierStr(const AStr: RegExprString);
426 procedure SetLineSeparators(const AStr: RegExprString);
427 procedure SetLinePairedSeparator(const AStr: RegExprString);
680 function QuoteRegExprMetaChars(const AStr: RegExprString): RegExprString; in useful()
1012 function QuoteRegExprMetaChars(const AStr: RegExprString): RegExprString; in QuoteRegExprMetaChars()
1018 Len := Length(AStr);
1023 ch := AStr[i];
1026 Result := Result + System.Copy(AStr, i0, i - i0) + EscChar + ch;
1031 Result := Result + System.Copy(AStr, i0, MaxInt); // Tail
1520 procedure TRegExpr.SetExpression(const AStr: RegExprString);
1522 if (AStr <> fExpression) or not regexpIsCompiled then
1525 fExpression := AStr;
1669 procedure TRegExpr.SetModifierStr(const AStr: RegExprString);
1671 if ParseModifiers(PRegExprChar(AStr), Length(AStr), fModifiers) then
4368 procedure TRegExpr.SetLineSeparators(const AStr: RegExprString);
4370 if AStr <> fLineSeparators then
4372 fLineSeparators := AStr;
4379 procedure TRegExpr.SetLinePairedSeparator(const AStr: RegExprString);
4381 if Length(AStr) = 2 then
4383 if AStr[1] = AStr[2] then
4390 if not fLinePairedSeparatorAssigned or (AStr[1] <> fLinePairedSeparatorHead)
4391 or (AStr[2] <> fLinePairedSeparatorTail) then
4394 fLinePairedSeparatorHead := AStr[1];
4395 fLinePairedSeparatorTail := AStr[2];
4399 else if Length(AStr) = 0 then