Fun Code of the Week #4
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;http://feeds.feedburner.com/~r/delph...~4/3O6pbjRVrYI
More... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz