[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];

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

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

[lmikle]

А может строка отличается по данным... Это раз.
Два. Цикл д.б. до Count-1.
Три. А нафига тебе именно RichEdit тут. Мне кажется, что тут достаточно Memo.

[volod3000]

Rich и Memo в данном варианте без разницы .
Алгоритм задачи:

В 1-й RichEdit загружают весь текст, во-второй и третий
правую и левую его части, и в четвертый их опять объединяют

[lmikle]

1. Tы проправил по поводу цикла?
2. Тем более сделай на Memo. Может в RichEdit есть какие-то подводные камни, еще не найденные.

[volod3000]

Спасибо,
Цикл конечно подправил, как говорят авт. ошибка,
а насчет Memo надо попробовать.

Правда я немного выкрутился применив временные файлы .