Word Zugriff per Ole -- zunehmend langsamer

[stifflersmom]

Hmmm, finde ich nicht wirklich performanter

Delphi-Quellcode:

    // Alle Wörter durchgehen   
    MyWords := WordDocument.Words;
    For LinesCount := 1 To MyWords.Count Do
     Begin
     ProgressBar1.Position := LinesCount;
     V:=MyWords.Item(LinesCount).Text;
     V:= trim(V);
     If Length(V) > 1 Then
     Zl.Add(V);