Forum: Programmieren allgemein
Delphi
by PeterPanino,
21. Apr 2016
Stell dir vor, du zahlst 1 Million Euro auf dein Bankkonto ein und nach einer Woche ist leider nur noch die Hälfte davon da. Als du den Banker zur Rechenschaft ziehst, sagt dieser: "Ja, wir haben jetzt eine neue Banking-Software von Zacherl, die hat eine unheimlich gute Performance ..." :wink:
Forum: Programmieren allgemein
Delphi
by PeterPanino,
20. Apr 2016
Habe es mit dem Taschenrechner nachgeprüft: 9,21 stimmt!
Mit deiner neuesten Version kriege ich jetzt 6,42.
Forum: Programmieren allgemein
Delphi
by PeterPanino,
20. Apr 2016
Danke für den Code! Heute ist der Tag für Fingerübungen!
Mit deiner Funktion kriege ich aber bei der angehängten Textdatei einen Wert von 1,00, mit meiner Funktion (inkl. Berichtigungen) einen Wert von 9,21!
Hier ist nochmals meine berichtigte Funktion:
function MyGetAverageWordLengthFromFile(const sFile: TFileName; MaxBytesToRead: Integer; const WordBoundaries: string = ' ' + #13 +...
Forum: Programmieren allgemein
Delphi
by PeterPanino,
20. Apr 2016
Auch sollte man if ThisByte = 32 then ersetzen durch if Chr(ThisByte) in then!
Forum: Programmieren allgemein
Delphi
by PeterPanino,
20. Apr 2016
Ach ja, wenn die Textdatei nur Leerzeichen enthält, wäre diese Bedingung natürlich nützlich:
if SpacesCount <> -1 then
Result := WordChars / (SpacesCount + 1);
Forum: Programmieren allgemein
Delphi
by PeterPanino,
20. Apr 2016
Hallo und schönen Tag!
Inspiriert von dem Wikipedia-Artikel Wortlänge habe ich als kleine Fingerübung eine Funktion geschrieben, um die durchschnittliche Wortlänge einer Textdatei bzw. eines definierbaren Abschnittes einer Textdatei zu ermitteln (wobei ich Wortlänge hier natürlich als Zeichenanzahl definiere):
program GetWordLengthFromFile;
{$APPTYPE CONSOLE}
{$R *.res}
uses