Wie oft ist ein Zeichen in einem String

[uplink]

Hallöle,

wollt mal wissen ob es eine Funktion gibt, dir mir sagt wie oft ein Zeichen in einem String vorkommt?
mfg Uplink

[mkinzler]

Stndardmäßig glaube nicht, kann aber mit pos/posex leicht selbst geschrieben werden.

[Muetze1]

Delphi-Quellcode:

Function CountChar(Const AString: String; Const AChar: Char): Integer;
Var
  lStr: PChar;
Begin
  Result := 0;

  lStr := PChar(AString);

  If Assigned(lStr) Then
  Begin
    While ( lStr^ <> #0 ) Do
    Begin
      If lStr^ = AChar Then
        Inc(Result);

      Inc(lStr);
    End;
  End;    
End;

[Nils_13]

Delphi-Quellcode:

function bla(s : String; z : String) : Integer;
var i : Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = z then
      inc(Result);
  end;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  bla('asbsdddds', 'd');
end;

Mist zu spät...

[cruiser]

Delphi-Quellcode:

function CountSubStr(SubStr, Str: string): integer;
begin
  Result := 0;
  while pos(SubStr, Str) > 0 do
  begin
    Result := Result + 1;
    Str := Copy(Str, Pos(SubStr, Str) + Length(SubStr), Length(Str));
  end;
end;

[uplink]

Ok thx @all, jetz hab ich ja ne Auswahl
Danke an euch, dass es so schnell ging.
Mfg Uplink.

[dominikkv]

oder so:

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
result := 0;
for I := 1 to length(s) do
  if s[i] = z then inc(result);
end;

[Muetze1]

Da würde ich glatt mal frech fragen: wer hat die schnellste?

[xZise]

Zitat von dominikkv:

oder so:

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
result := 0;
for I := 1 to length(s) do
  if s[i] = z then inc(result);
end;

Gabs schonmal:

Zitat von Nils_13:

Delphi-Quellcode:

function bla(s : String; z : String) : Integer;
var i : Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = z then
      inc(Result);
  end;
end;

Wer es nicht sieht, einfach Umstellen (Gleicher Code nur andere Formatierung!!!):

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
  result := 0;  // Tab
  for I := 1 to length(s) do  // Tab
  // kein Begin, aber irrelevant
    if s[i] = z then   // Tab & umgebrochen!
      inc(result);  // Umgebrochen
  // ein end, aber irrelevant
end;

Obwohl die inrementiertung doch eigentlich schneller gehen könnte ... Oder nicht (x := x + 1)?

[Nils_13]

Wo gab es den schonmal ? Vlt. in einem anderen Thread, aber ich habe doch schneller gepostet