Hallo,
mein Programm soll für voreingestellte Schlüsselwörter, wenn etwas gesucht oder die Datei geöffnet wurde, farbig hervorheben.
Das funktioniert auch.
Mein Problem ist nur, wenn ich sehr große Dateien habe ala Zeilen >2000, dann dauert das eine halbe Ewigkeit.
Ich wollte nur mal wissen ob wer eine Idee hat, dieses Suchen/markieren effizienter zu machen oder ob ich mit der Geschwindigkeit leben muss.
Hier der Code:
Delphi-Quellcode:
i2:=0;
for ii := 0 to FSelectCount-1 do
begin
if FSelect.Strings[ii] <>'' then
begin
if (text<>'') OR (text2<>'') OR (text3<>'') then
begin
if (Pos( LowerCase(text), LowerCase( FSelect.Strings[ii] ) )) > 0 then
begin
i:=Pos( LowerCase(text), LowerCase( FSelect.Strings[ii] ) );
mmoLines.SelStart := i+i2-1;
mmoLines.SelLength := Length(text);
mmoLines.SelAttributes.Color := c;
mmoLInes.SelAttributes.Style := [fsBold];
mmoLines.SelLength := 0;
end;
if Pos( LowerCase(text2), LowerCase( FSelect.Strings[ii] ) ) > 0 then
begin
i:=Pos( LowerCase(text2), LowerCase( FSelect.Strings[ii] ) );
mmoLines.SelStart := i+i2-1;
mmoLines.SelLength := Length(text2);
mmoLines.SelAttributes.Color := c2;
mmoLInes.SelAttributes.Style := [fsBold];
mmoLines.SelLength := 0;
end;
if Pos( LowerCase(text3), LowerCase( FSelect.Strings[ii] ) ) > 0 then
begin
i:=Pos( LowerCase(text3), LowerCase( FSelect.Strings[ii] ) );
mmoLines.SelStart := i+i2-1;
mmoLines.SelLength := Length(text3);
mmoLines.SelAttributes.Color := c3;
mmoLInes.SelAttributes.Style := [fsBold];
mmoLines.SelLength := 0;
end;
end;
end;
i2 := i2+Length(FSelect.Strings[ii])+2;
end;
wobei FSelect eine Stringlist ist
und text und color und c aus einer ini datei gelesen werden
über Ideen wäre ich dankbar
