MyGetAverageWordLengthFromFile

[PeterPanino]

Ach ja, wenn die Textdatei nur Leerzeichen enthält, wäre diese Bedingung natürlich nützlich:

Delphi-Quellcode:

if SpacesCount <> -1 then
  Result := WordChars / (SpacesCount + 1);