EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

[paule32.jk]

geht irgendwie nicht so gut.

ich habe den Code etwas abgeändert, so dass im Timer Event der Timer gestoppt wird und eine MessageBox angezeigt werden sollt.
Ist aber nicht der Fall.
Die Timer werden nicht lahmgelegt und showmessage wird auch nicht angezeigt:

Delphi-Quellcode:

if RichEdit1.Lines.Count >= 30 then
begin
  Timer1.Enabled := false;
  Timer2.Enabled := false;
  showMessage('yyyy');
  s := RichEdit1.Lines.Strings[0]; // Erste Zeile speichern
  RichEdit1.SelectAll;
  RichEdit1.ClearSelection;
end;

[Kas Ob.]

Zitat von paule32.jk:

if richedit1.lines.count >= 30 then

>= 30 !!

[paule32.jk]

indeed @kas ob

The Line Number in RichEdit Control does not have the linear Numbers from 1,2,...,n
because the Line Counts depend on the matched Prime.

The following Code will work fine:

Delphi-Quellcode:

if RichEdit1.Lines.Count >= 50 then
begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;

    s := RichEdit1.Lines.Strings[0]; // Erste Zeile speichern

    RichEdit1.Lines.Clear;
    RichEdit1.Lines.Add(s);

    Timer1.Enabled := True;
    Timer2.Enabled := True;
end;

The Lines is then corresponding with Prime 223.