Delphi optimierung bei ersetzen in Richedit

Thema durchsuchen

Ansicht

Themen-Optionen

optimierung bei ersetzen in Richedit

Ein Thema von glkgereon · begonnen am 24. Apr 2004 · letzter Beitrag vom 27. Apr 2004

Vorheriger Beitrag

Nächster Beitrag

yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge

Lazarus

Re: optimierung bei ersetzen in Richedit

24. Apr 2004, 18:26

zusammenfalten · markieren

Delphi-Quellcode:

			var start,Zeichen:integer;

begin

   start :=0;

   Zeichen:=RichEdit1.GetTextLen;

   repeat

   richedit1.SelStart :=richedit1.FindText(' ',start,zeichen,[stMatchCase]);

   richedit1.SelLength :=1;

   richedit1.SelText :='';

   inc(start);

   until start=zeichen

end;

Versuch's mal so. Naja, bei 400.000.000 Zeichen wird's mit Integer nicht mehr gehen (IntegerMax: 32767). Musst also LongInt nehmen, dass geht bis 2 147 483 647.