2
votes
Vote UpVote

Fun Code of the Week #4

Nick Hodges – Adapted from my answer on StackOverflow: function RemoveChars(const aString: string; aCharsToRemove: TSysCharSet): string; var C: Char; begin Result := ''; for C in aString do begin if not CharInSet(C, aCharsToRemove) then begin Result := Result + C; end; end; end;
Favorite? Off-Topic? nick@nickhodges.com @ 2012-06-08 21:14

Statistics

Visits: 1116
Votes: 2
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

NickHodges
Wouter
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

 
Please login or register to use this functionality.
(click on this box to dismiss)