Ошибка при обработки строк в RichEdit

@volod3000 · Регистрация: 23.12.2008

Author24 — интернет-сервис помощи студентам

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

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

Код

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

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

RichEdit line insertion error.

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

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

@Lord_Voodoo · 27.04.2009, 13:07

volod3000, проблема не кол-во строк, а в максимальном кол-ве символов, вот код для увеличения ограничения с 64кб до 4 гб

Delphi

1	SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);

@volod3000 · 27.04.2009, 13:40 **[ТС]**

Уже пробовал :

Код

         [COLOR="Red"]RichEdit2.Perform(EM_LIMITTEXT,  $7FFFFFF0 , 0);
         RichEdit3.Perform(EM_LIMITTEXT,  $7FFFFFF0 , 0);[/COLOR]

и в цикле, и за ним ,

но ошибка на месте, вот и не понятно почему .

на EM_EXLIMITTEXT моя Delphi 2009 тоже кричит :

E2066 Missing operator or semicolon

@volod3000 1 / 1 / 0 Регистрация: 23.12.2008 Сообщений: 21
		1
	Ошибка при обработки строк в RichEdit 27.04.2009, 12:57. Показов 2381. Ответов 2 Метки нет (Все метки) Здравствуйте ! При выполнении следующего кода: Код [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; [/COLOR] На (приблезительно) 800 строчке выдает ошибку : *RichEdit line insertion error. Если текст меньше 800 строк все работает как надо.* Подскажите, кто знает, в чем дело , в чем ошибка ? 0

@volod3000 1 / 1 / 0 Регистрация: 23.12.2008 Сообщений: 21
	27.04.2009, 13:40 [ТС]	3
	Уже пробовал : Код [COLOR="Red"]RichEdit2.Perform(EM_LIMITTEXT, $7FFFFFF0 , 0); RichEdit3.Perform(EM_LIMITTEXT, $7FFFFFF0 , 0);[/COLOR] и в цикле, и за ним , но ошибка на месте, вот и не понятно почему . на EM_EXLIMITTEXT моя Delphi 2009 тоже кричит : E2066 Missing operator or semicolon 0

Ошибка при обработки строк в RichEdit

Решение