Strip a set of characters from a string: Difference between revisions
Content deleted Content added
{{header|Liberty BASIC}} |
Added Delphi example |
||
Line 134:
assert(s.removechars("aei") == ss);
}</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}}==
<lang go>package main
|