type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
Описание
Перечисляемые типы TReplaceFlags передают опции для подпрограммы StringReplace:
rfReplaceAll Заменяет все найденные вхождения rfIgnoreCase Поиск без учета регистра
Похожие команды
StringReplace Заменяет одну или несколько подстрок, найденных в заданной строке
Пример кода : Замена всех вхождений независимо от регистра
var
before, after : string;
options : TReplaceFlags;
begin // Попытка заменить все вхождения A на THE
before := 'This is a way to live A big life'; // Установка опций замены всех вхождений независимо от регистра
options := [rfReplaceAll, rfIgnoreCase]; // Теперь заменяем 'a' или 'A' на 'THE' везде
after := StringReplace(before, ' a ', ' THE ', options); // Показ до и после
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;
This is a way to live A big life
This is THE way to live THE big life
