Programowanie w języku Delphi

TReplaceFlags

Typ TReplaceFlags używany jest w procesie zamiany łańcuchów i słuzy do określenia parametrów zamiany.

type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);


Flaga rfReplaceAll oznacza, że każde wystąpienie szukanego słowa zostanie zastąpione. Jeżeli flagi brak - jedynie pierwsze wystąpienie zostanie zastąpione.

Flaga rfIgnoreCase powoduje, iż funkcja StringReplace ignoruje wielkość znaków w łańcuchu. Przykład użycia:

program Foo;
 
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
var
  S : String;
  NewStr, OldStr : String;
begin
  S := 'To jest test, a skoro to jest Test to i może być słowo test?';
  OldStr := 'test';
  NewStr := 'łańcuch';
  S := StringReplace(S, OldStr, NewStr, [rfReplaceAll, rfIgnoreCase]);
 
  Writeln(S);
  Readln;
end.


Zobacz też: