StringReplace
Adam Boduch
StringReplace
Moduł: SysUtils
program Foo;
{$APPTYPE CONSOLE}
uses Dialogs, 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, []);
Writeln(S);
Readln;
end.
Po uruchomieniu programu, funkcja zamieni jedynie pierwsze wystąpienie słowa test
w łańcuchu S. W parametrze Flags który wskazuje na typ TReplaceFlags należy ustawić flagę rfReplaceAll:
S := StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
Zobacz też: