Anonymous user
Strip a set of characters from a string: Difference between revisions
Strip a set of characters from a string (view source)
Revision as of 03:47, 21 July 2011
, 12 years agoAdded Delphi example
({{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
|