Desaströse Performance von TRichedit

[Uwe Raabe]

Ich habe das mal hier mit Delphi 12.1 und einem VCL-Form, einem RichEdit, einem Button und einem Label drauf ausprobiert:

Delphi-Quellcode:

procedure TForm866.Button1Click(Sender: TObject);
begin
//  var FN:= 'c:\Users\Uwe\Downloads\TestDateien\Windows_ITunesContent.txt';
  var FN:= 'c:\Users\Uwe\Downloads\TestDateien\MacOS_ItunesContent.txt';
  var sw := TStopwatch.StartNew;
  richedit1.lines.LoadFromFile(fn);
  label1.Caption := sw.ElapsedMilliseconds.ToString;
end;

Ohne Debugger dauert das bei der Windows-Datei gut 1 Sekunde und bei der MacOS-Datei knapp 4 Sekunden.

[Maekkelrajter]

Zitat von Uwe Raabe:

Ich habe das mal hier mit Delphi 12.1 und einem VCL-Form, einem RichEdit, einem Button und einem Label drauf ausprobiert:
Ohne Debugger dauert das bei der Windows-Datei gut 1 Sekunde und bei der MacOS-Datei knapp 4 Sekunden.

Das Verhältnis der Zeiten entspricht ja fast genau den von mir ermittelten Zeiten. Die enorme absolute Dauer ist wohl u.a. meinem in die Jahre gekommenen Rechner geschuldet. Aber auch mit meinem IT-Methusalem ging es ja mit der früheren Version (Delphi bzw.Trichedit) bedeutend schneller, ebenso wie aktuell mit TMemo.
Und 4 Sekunden sind heutzutage für eine Datei von gerade mal 6 MB auch ganz schön happig;
Festzustehen scheint, dass die aktuelle Implementierung von TRichedit gewissermaßen suboptimal ist.
Ich bin schon dabei, bei meinem Hauptprojekt überall dort, wo Performance eine Rolle spielt und Richedit-Features nicht unbedingt benötigt werden, das TRichedit durch ein TMemo zu ersetzen. So kommt wenigstens keine Langeweile auf

Gruß LP

[Uwe Raabe]

Zitat von Maekkelrajter:

Festzustehen scheint, dass die aktuelle Implementierung von TRichedit gewissermaßen suboptimal ist.

Ich habe das mal auf einen simplen WinApi-Aufruf reduziert und komme auf ziemlich dieselben Werte. Es hängt also wohl nicht an der Delphi-Implementierung.

Delphi-Quellcode:

  var FN:= 'c:\Users\Uwe\Downloads\TestDateien\Windows_ITunesContent.txt';
//  var FN:= 'c:\Users\Uwe\Downloads\TestDateien\MacOS_ItunesContent.txt';
  var S := TFile.ReadAllText(FN, TEncoding.Unicode);
  var sw := TStopwatch.StartNew;
  RichEdit1.SetSelText(S);
  label1.Caption := sw.ElapsedMilliseconds.ToString;

Warum die doppelt so große Windows-Datei aber nur 1/4 der Zeit braucht erschließt sich mir noch nicht so ganz.

[himitsu]

TextDateien ohne Formatierung ... warum überhaupt in ein RichEdit anstatt in ein Memo?

[Uwe Raabe]

Zitat von himitsu:

TextDateien ohne Formatierung ... warum überhaupt in ein RichEdit anstatt in ein Memo?

Na ja, weil:

Zitat von Maekkelrajter:

Aber einige optische Gimmicks wie mehrfarbiger Text sind eben mit einem TMemo nicht zu realisieren.

[himitsu]

Zitat von Uwe Raabe:

Zitat von himitsu:

TextDateien ohne Formatierung ... warum überhaupt in ein RichEdit anstatt in ein Memo?

Na ja, weil:

Zitat von Maekkelrajter:

Aber einige optische Gimmicks wie mehrfarbiger Text sind eben mit einem TMemo nicht zu realisieren.

ups.

SynEdit/SynMemo oder dergleichen?
oder das neue Direct2D-RichEdit ... müsste man doch bestimmt gut im FireMokey einbinden können.
(der Start von dem Geraffel dauert zwar ewig, aber danach scheint es schnell zu sein)

[Kas Ob.]

What about this

Delphi-Quellcode:

var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(FILE_NAME);
    SendMessage(RichEdit1.Handle, WM_SETTEXT, LPARAM(0), WPARAM(Stream.Memory)); // better to add to the stream another byte with 0 or double bytes with 0, but for testing now
    //Stream.Position := 0;
    //RichEdit1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

[Kas Ob.]

Well, if someone reading my writing somewhere, then try this

Delphi-Quellcode:

var
  Stream:TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(FILE_NAMEXX);
    Stream.Position := 0;
    RichEdit1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

The problem is known, which is the ****** stream handling in RTL, and also in VCL, it does many small read at 2kb (like it was bronze age) instead of 64kb, anyway TMemoryStream will load this stuff in full in memory and feed it, this should be faster, (Well in theory and in my slow brain)

[Uwe Raabe]

Zitat von Kas Ob.:

Well, if someone reading my writing somewhere, then try this

Sorry, no difference. The problem is most likely inside Windows.

[Maekkelrajter]

Zitat von Uwe Raabe:

Warum die doppelt so große Windows-Datei aber nur 1/4 der Zeit braucht erschließt sich mir noch nicht so ganz.

Ich vermute, es liegt an der Codierung unter MacOS. Zum Beispiel werden Umlaute im normalen Text anders codiert als solche im Dateipfad
Beispiel Track 4344
Titel: Morgendämmerung und Siegfried's Rheinfahrt aus "Götterdämmerung". Der Code für 'ä' = $E4 00
Im Dateipfad "Macintosh HD/Users/.../05 Morgendämmerung und Siegfried's Rheinfahrt aus _Götterdämmerung_.m4a" ist der Code für 'ä'= $61 00 08 03 (a + ¨).
Wenn ich mit Trichedit.FindText nach 'dämmerung' suche, wird nur das Vorkommen im Text, nicht aber das im Dateipfad gefunden
Ich habe allerdings keine Ahnung, warum sich das so gravierend auf die Ausführungszeit auswirkt.

Gruß LP