TrimChars für beliebige Zeichen
xaromz zeigt hier ein Funktion, mit der es möglich ist, von einem String beliebige Zeichen, die sich am Rand befinden, zu löschen. Dies können beispielsweise Leerzeichen sein, die sich rechts und/oder links im String befinden, doch es können auch beliebige weitere Zeichen sein, sogar mehrere verschiedene, die zu entfernen sind.
Delphi-Quellcode:
Hier zwei Beispielaufrufe:
type
TTrimDirection = set of (tdLeft, tdRight); function PATrimChars(const S: String; CS: TSysCharSet; Direction: TTrimDirection): String; var L, Left, Right: Integer; begin L := Length(S); Left := 1; if tdLeft in Direction then begin while (Left <= L) and (S[Left] in CS) do Inc(Left); if Left > L then begin Result := ''; Exit; end; end; Right := L; if tdRight in Direction then begin while (Right > 0) and (S[Right] in CS) do Dec(Right); end; Result := Copy(S, Left, Right - Left + 1); end;
Delphi-Quellcode:
[edit=CalganX]Aktualisierter Quellcode. Mfg, CalganX[/edit]
ShowMessage(PATrimChars('hallo!!!', ['!'], [tdRight])); // ergibt: hallo;
ShowMessage(PATrimChars('_#hallo/{', ['_', '#', '/', '{'], [tdLeft, tdRight])); // ergibt: hallo; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:27 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