zeichen zählen

[Sharky]

Zitat von G G:

hi, kurze frage, wie zählt man wieviel "," in meinem string vorkommen?
gibts da ne funktion?

Einfach eine kleine Funktion schreiben:

Delphi-Quellcode:

function CharCount (s : String; c : Char) : Integer;
var
  ndx,
  count : Integer;
begin
  count := 0;
  for ndx := 1 to Length (s) do
  begin
    if (s[ndx] = c) then Inc (count);
  end;
  result := count;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage ('Es gibt ' + IntToStr (CharCount (',sdf,sdfsdf,',',')));
end;