RRichEdit LoadFromFile

[Amateurprofi]

Ich habe in einem Formular ein RichEdit.
Wenn ich das Programm starte und mit nachstehender Prozedur eine etwa 1 MB große.rtf Datei lade
1) dauert das unverhältnismäßig lange (etwa 20 s).
2) der Text wird unformatiert angezeigt (Bild1).

Wenn ich dann den Text lösche und noch einmal lade
1) geht das blitzschnell
2) der Text wird korrekt angezeigt (Bild2).
Frage:
Was muss ich tun, damit das auch beim ersten Mal korrekt funktioniert.

Delphi-Quellcode:

procedure TMain.LoadText(Sender: TObject);
begin
   if OpenDialog.Execute then
      reText.Lines.LoadFromFile(OpenDialog.FileName);
end;

[Luckie]

Beim zweiten mal hat Windows sie wohl nur aus dem Cache geladen, nehme ich mal an.

Von wo kommt die Datei? Festplatte, Netzwerk, USB(-Stick), ...

[Amateurprofi]

Danke Luckie.
Die Datei ist auf der Festplatte.
Aber mit/ohne Cache erklärt m.E. nicht 20 Sekunden.
Und vor allem erklärt es nicht ohne/mit Formatierung.

[hoika]

Hallo,
kannst Du die Datei + Demo-Projekt (Minimalbsp. ) mal hochladen..

[Amateurprofi]

Zitat von hoika:

Hallo,
kannst Du die Datei + Demo-Projekt (Minimalbsp. ) mal hochladen..

Ist jetzt in #1.

Das Ganze bezieht sich auf eine Prozedur, die Texte in einem RichEdit finden und markieren kann.
Die hatte ich vor einigen Jahren in die DP gestellt.
https://www.delphipraxis.net/187707-...markieren.html
Die Prozedur habe ich in einigen Punkten erweitert/optimiert und ein kleines Programm zum Testen geschrieben.

[Luckie]

Passiert zwischen Laden und Anzeigen noch was in deinem Programm?