Strip a set of characters from a string: Difference between revisions
Content added Content deleted
({{header|Liberty BASIC}}) |
(Added Delphi example) |
||
Line 134: | Line 134: | ||
assert(s.removechars("aei") == ss); |
assert(s.removechars("aei") == ss); |
||
}</lang> |
}</lang> |
||
=={{header|Delphi}}== |
|||
<lang Delphi>program StripCharacters; |
|||
{$APPTYPE CONSOLE} |
|||
uses SysUtils; |
|||
function StripChars(const aSrc, aCharsToStrip: string): string; |
|||
var |
|||
c: Char; |
|||
begin |
|||
Result := aSrc; |
|||
for c in aCharsToStrip do |
|||
Result := StringReplace(Result, c, '', [rfReplaceAll, rfIgnoreCase]); |
|||
end; |
|||
const |
|||
TEST_STRING = 'She was a soul stripper. She took my heart!'; |
|||
begin |
|||
Writeln(TEST_STRING); |
|||
Writeln(StripChars(TEST_STRING, 'aei')); |
|||
end.</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||
<lang go>package main |
<lang go>package main |