Frage zu einer funktion

[choose]

Hallo Pseudemys Nelsoni,

wenn Du Dich intensiver mit Stringverarbeitung auseinandersetzen wirst, könnten reguläre Ausrücke (RegExp, delphi regexp) hilfreich sein.

Eine ad hoc-Lösung für Dein Problem könnte dann zB so aussehen (geht sicher eleganter)

Delphi-Quellcode:

function CountWords(const AString: string; const ADelimiter: Char): Cardinal;
begin
  Result:= 0;
  with TRegExpr.Create do
  try
    Expression:= Format('[^%s]+', [QuoteRegExprMetaChars(ADelimiter)]);
    if Exec(AString) then
    repeat
      Inc(Result);
    until not ExecNext;
  finally
    Free;
  end;
end;