DWScript/Test/FunctionsString/replace.pas at master · EricGrange/DWScript · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
PrintLn(StrReplace('hello', 'world', 'bug'));
PrintLn(StrReplace('', 'world', 'bug'));
PrintLn(StrReplace('hello', 'hello', 'world'));
PrintLn(StrReplace('hello', 'hello', ''));
PrintLn(StrReplace('hello', '', 'world'));

PrintLn(StrReplace('hello', 'l', 'z'));
PrintLn(StrReplace('hello', 'h', 'z'));
PrintLn(StrReplace('hello', 'o', 'z'));

PrintLn(StrReplace('hello', 'l', 'xyz'));
PrintLn(StrReplace('hello', 'h', 'xyz'));
PrintLn(StrReplace('hello', 'o', 'xyz'));

PrintLn(StrReplace('abacaba', 'ab', 'z'));
PrintLn(StrReplace('abacaba', 'aba', 'z'));

PrintLn(StrReplace('bacaba', 'ba', 'zx'));
PrintLn(StrReplace('bacaba', 'ba', 'z'));
PrintLn(StrReplace('bacaba', 'ba', 'xyz'));

PrintLn(StrReplace('bacaba', 'ca', 'zx'));
PrintLn(StrReplace('bacaba', 'ca', 'z'));
PrintLn(StrReplace('bacaba', 'ca', 'xyz'));

PrintLn(StrReplace('bacaba', 'a', 'z'));
PrintLn(StrReplace('bacaba', 'a', 'zx'));
PrintLn(StrReplace('bacaba', 'a', ''));

PrintLn(StrReplace('bacaba', 'b', 'z'));
PrintLn(StrReplace('bacaba', 'b', 'zx'));
PrintLn(StrReplace('bacaba', 'b', ''));