[volod3000]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

<font color="DarkSlateBlue"> 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; </font>

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

RichEdit line insertion error.

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

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

Код:

1 2 3

<font color="DarkSlateBlue"> Text2:= RichEdit1.Lines.ValueFromIndex[y]; </font>

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

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

[lmikle]

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

[volod3000]

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

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

[lmikle]

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

[volod3000]

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

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