Worthäufigkeit bestimmen

[Basilikum]

Zitat von Pseudemys Nelsoni:

Delphi-Quellcode:

...
      IsInArray := false;
      TempWord := Copy(TempStr, 1, Pos(sep, TempStr)-1);
      Delete(TempStr, 1, Pos(sep, TempStr));
      for i := low(WordCount) to high(WordCount) do
      begin
        if WordCount[i].word = TempWord then
        begin
          IsInArray := true;
          inc(WordCount[i].count);
        end;
      end;
      if not IsInArray then
      SetLength(WordCount, Length(WordCount)+1);
      WordCount[high(WordCount)].word := TempWord;
      WordCount[high(WordCount)].count := 1;
    end;
  end;
...

ich vermute mal, dass hier ein Begin/End vergessen ging:

Delphi-Quellcode:

  if not IsInArray then Begin
    SetLength(WordCount, Length(WordCount)+1);
    WordCount[high(WordCount)].word := TempWord;
    WordCount[high(WordCount)].count := 1;
  end;