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