AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Richedit schnell viele farbige Zeilen einfügen zu langsam
Thema durchsuchen
Ansicht
Themen-Optionen

Richedit schnell viele farbige Zeilen einfügen zu langsam

Ein Thema von NICK447 · begonnen am 14. Feb 2009 · letzter Beitrag vom 20. Feb 2009
Antwort Antwort
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#1

Re: Richedit schnell viele farbige Zeilen einfügen zu langsa

  Alt 15. Feb 2009, 00:25
Das Problem liegt wahrscheinlich an dem Aufruf von GetTextLen.
Diese Funktion zählt immer wieder von Vorne durch und braucht dadurch immer länger.
Das führt dann zu einem quadratischen Anwachsen der benötigten Zeit.
Delphi-Quellcode:
procedure TFmain.TntButton_generate_ReportClick(Sender: TObject);
Var i : Integer;
    st1 : String;
  ins_pos : integer;
  list : TStrings;
begin
  RichEdit1.Lines.BeginUpdate;
  // Zwischenvariable - spart Zeit und bringt Klarheit in den Code
  list := ListBox_HEX.Items;

  ins_pos := RichEdit1.GetTextLen; // am Anfang einmal die Einfügeposition ermitteln
  for i:= 0 to list.Count - 1 do Begin
    with RichEdit1 do Begin
      st1 := list.Items[i];
      SelStart := ins_pos;
      SelAttributes.Color := TColor(list.Objects[i]);
      SelText := st1 + #13#10;
      
      {
      Einfügeposition weiterzählen.
      Hier bin ich mir nicht sicher, ob man den Zeilenumbruch als 2 Zeichen
      zählen muss oder nicht.
      Bitte selbst herausfinden.
      }

      Inc(ins_pos, Length(st1) + 2);
    end;
  end;
  RichEdit1.Lines.EndUpdate;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz