[volod3000]

Здравствуйте !

При выполнении следующего кода:

Код:

var
 Text1,Text2: String;
 i,y:Integer;

begin
      RichEdit2.Lines.Clear;
      RichEdit3.Lines.Clear;
     

  for i := 0 to RichEdit1.Lines.Count   do begin
      y:= i;

    Text1:= RichEdit1.Lines.Names[i];
    RichEdit2.Lines.Add(Text1);

    Text2:= RichEdit1.Lines.ValueFromIndex[y];
    RichEdit3.Lines.Add(Text2);

  end;
    
    

end;

На (приблезительно) 800 строчке выдает ошибку :

RichEdit line insertion error.

Если текст меньше 800 строк все работает как надо.

Ошибка возникает в строчке кода :

Код:

Text2:= RichEdit1.Lines.ValueFromIndex[y];

но почему не понятно .

Подскажите, кто знает, в чем дело , в чем ошибка ?