EOutOfResources: 'Fehler bei Einfügen von RichEdit -Zeile'

[teebee]

Ich habe Deinen Code so verändert, und das Ergebnis sieht zumindest so aus, als könnte es hinkommen:

Delphi-Quellcode:

  with RichEdit1 do begin
    RichEdit1.Clear; 
    AStr := '---------------------'; 
    RichEdit1.Lines.Add(AStr + '--------------'); 
    Richedit1.SelStart := RichEdit1.GetTextLen;
    for I := 1 to 2440 do RichEdit1.SelText := AStr+#13#10;

    RichEdit1.SelStart := 0;
    Richedit1.SelText := 'on:   ' + '00:00:00  '+#13#10+#13#10;

    Richedit1.SelText := 'on:   ' + DateToStr(Now) + '  00:00'+#13#10;
    Richedit1.SelText := 'on:   ' + DateToStr(Now) + '  24:00              00:00:00'+#13#10;


    SelStart := Perform(EM_LINEINDEX,3,0) + 37; // = Position des '00' in Zeile3
    SelLength := 2;
    SelText := '24'; // Austausch der ersten '00' durch ein '24'


    Label1.Caption := 'Chars = ' + IntToStr(Length(Lines.Text));
    Label2.Caption := 'Lines = ' + IntToStr(Lines.Count);
    RichEdit1.SelStart := RichEdit1.GetTextLen;
    RichEdit1.SelText := ('bla bla bla')+#13#10;
//    Lines.Add('bla bla'); // <=== hier wird die Exception ausgelöst
  end;

Gruß, teebee