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;