Einzelnen Beitrag anzeigen

Benutzerbild von rawsoul
rawsoul

Registriert seit: 29. Okt 2006
Ort: Düsseldorf
249 Beiträge
 
Delphi 2005 Personal
 
#1

Bestimmte Zeichen eines Strings zählen

  Alt 1. Nov 2007, 19:27
Hallo miteinander,

da die Fragen diesbezüglich sehr oft kommen in letzter Zeit, hier mal meine Version einer Zeichen-Zähl-Funktion.

Delphi-Quellcode:
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;
[edit=Matze]Ursprünglichen Source-Code durch einen besseren von sakura ersetzt. MfG, Matze[/edit]
Frank Dumont
  Mit Zitat antworten Zitat