Bestimmte Zeichen eines Strings zählen
Hallo miteinander,
da die Fragen diesbezüglich sehr oft kommen in letzter Zeit, hier mal meine Version einer Zeichen-Zähl-Funktion.
Delphi-Quellcode:
[edit=Matze]Ursprünglichen Source-Code durch einen besseren von sakura ersetzt. MfG, Matze[/edit]
type
TChars = array[Char] of Integer; function ZaehleZeichen(Str: string; CaseSensitve: Boolean = True): TChars; var Idx: Integer; begin FillChar(Result, SizeOf(TChars), #0); if not CaseSensitve then Str := LowerCase(Str); for Idx := 1 to Length(Str) do Inc(Result[Str[Idx]]); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:53 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