Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
TReplaceFlags
Тип
Определяет опции для подпрограммы StringReplace SysUtils unit
  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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия