Text in RichEdit automatisch formatieren

[marabu]

Hallo oki,

zwei Dinge stechen mir ins Auge: Der doppelte Aufruf von FindText mit identischen Parametern und die dreifache Ermittlung von RichEdit.Text, eine sehr aufwendige Prozedur.

Ich habe deine Beispieldaten aus Beitrag #1 auf 600 KB vervielfältigt und eine Prozedur von mir ausgemessen:

Delphi-Quellcode:

procedure FormatText(re: TRichEdit; const keyword: string;
    options: TSearchTypes; color: TColor);
var
  iStart, iFound, iLength: Integer;
begin
  iStart := 0;
  re.SelStart := MaxInt;
  iLength := re.SelStart;
  while iStart < (iLength - Length(keyword)) do
  begin
    iFound := re.FindText(keyword, iStart, iLength - iStart, options);
    if iFound = -1
      then Exit
      else iStart := iFound + Length(keyword);
    re.SelStart := iFound;
    re.SelLength := Length(keyword);
    re.SelAttributes.Color := color;
  end;
end;

// FormatText(RichEdit, 'Sender', [stWholeWord, stMatchCase], clRed);

Unter 10 Sekunden läuft das auch nicht - und da ist nur ein Schlüsselwort gefärbt worden.

Ich bleibe bei meinem Vorschlag: Schreibe die Logdaten im XML-Format und verwende die Komponente TWebBrowser als Basis für deinen Viewer. Für die Erstellung der Logdatei brauchst du das XML DOM nicht, es genügen etwa drei kleine Funktionen um Elemente und Attribute mit maskierten Texten auszugeben. Für den Viewer stehen alle benötigten Spezialfunktionen hier in der DP zur Verfügung und die Gestaltung machst du mit CSS.

Freundliche Grüße