Ende der Schleife?

[yankee]

Hi Leutz,

ich habe da mal einen billig-Algorithmus programmiert:

Delphi-Quellcode:

procedure TForm1.HTMLHervorhebungausfhren1Click(Sender: TObject);
var start:integer;
begin
start :=0;
repeat
richedit1.SelStart :=richedit1.FindText('<',start,1000,[stMatchCase]);
richedit1.SelLength :=richedit1.FindText('>',start,1000,[stMatchCase]) -richedit1.SelStart;
richedit1.SelAttributes.Style :=[fsbold];
inc(start);
until ????

Der soll (zum Zweck einer besseren Übersicht) HTML-Tags hervorheben. Funktioniert auch ganz gut, nur was soll ich hinter until schreiben? Ich habe zu Testzwecken einfach mal start=100 hingeschrieben. Funzt, ist ja aber eigentlich nicht Sinn der Sache und geht auch nur bei kurzen Texten.
Ich denke, dass ich start=und hier dann die anzahl an Zeichen der richedit einfügen könnte. Ich habe mir folgendes einfallenlassen, wobei aber schon nach einem Durchlauf

Delphi-Quellcode:

for s:=0 to richedit1.lines.count -1 do
    begin
    zeichen :=zeichen +length(richedit1.lines.strings[s]);
    end;

Der Wert zeichen hat aber immer schon nach einem Durchlauf schon einen größeren Wert, als ein integer vertragen kann...

Wär schön, wenn mir einer helfen könnte.

[Markus K.]

Hallo yankee,
die Zeichen in einem RichEdit brauchst du nicht mit einer Schleife zählen. Versuche es mal mit

Delphi-Quellcode:

Zeichen:=RichEdit1.GetTextLen;

das müsste eigentlich gehen.
Anstelle eines normalen Integers kannst du auch einen LongInt benutzen.

Tschüß Markus

[yankee]

Prima, es funzt, Danke!