StrReplace(From, To, Text : String) : String
StrReplace(From : Array Of String; To, Text : String) : String
StrReplace(From, To : Array Of String; Text : String) : String
Замена части строки

Функция StrReplace заменяет в строке Text все последовательности символов From на To.

Пример:

Procedure OnCreate;
Var
  S : String;
Begin
  S := StrReplace('ABC', 'xy', 'ABCDABCD');
  Warning('StrReplace(ABC, xy, ABCDABCD) = ' + S); // xyDxyD
  
  S := StrReplace('AC', 'xy', 'ABCDABCD');
  Warning('StrReplace(AC, xy, ABCDABCD) = ' + S); // ABCDABCD (Замены не произошло)

  S := StrReplace(['A','C'], '#', 'ABCDABCD');
  Warning('StrReplace([A,C], #, ABCDABCD) = ' + S); // #B#D#B#D

  S := StrReplace(['A','B','C','D'], ['0','1','2','3'], 'ABCDABCD');
  Warning('StrReplace([A,B,C,D], [0,1,2,3], ABCDABCD) = ' + S); // 01230123
End;

© RTIT