Richedit line insertion error ошибка alex flasher

You are getting the RichEdit line insertion error because of check added to the Delphi 2009 version. This check verifies if the insertion of a new line has been successful and this check uses for it the selection position. Unfortunately, for the following piece of code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Clear;
  RichEdit1.Lines.Add('1');
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Lines.Count > 0 then
    RichEdit1.Lines.Delete(0);
end;

The workflow looks like this:

1. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Get the position of the first char for the line where the string will be inserted, add the linebreak to that string, setup the selection (0 length, starting at the line beginning) and insert the string by performing EM_REPLACESEL message, what except the text insertion, changes also the selection position. The check mentioned above has not been performed yet, and in the meantime that text insertion causes the OnChange event to fire, where the TRichEdit.Lines.Delete is called.

2. — TRichEdit.Lines.Delete

Delete does something similar. It gets the first character index of the deleted line, setup the selection, now in the whole line length and performs the EM_REPLACESEL message with the empty string. But it also changes the selection position of course. And that’s the problem, because we are now going back to the last line of the TRichEdit.Lines.Insert function.

3. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Now the last thing of a previous call of the TRichEdit.Lines.Insert function remains to be done, the evil check based just on the selection position. And since the position has been changed by the meantime deletion, it doesn’t match to the expected result and you are getting the error message.

Also, before someone fix this issue, don’t use even this, it will cause the same error:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Add('1');
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  RichEdit1.SelStart := 0;
end;

If you didn’t fell asleep from this boring story, then I can suggest you just to avoid the manipulation with the lines in OnChange event as much as you can (better to say, only when you know what can happen).

Lines.Add(sMyString); 

DelphiPascalProgramming Languages-Other

Почему я получаю ошибку вставки строки RichEdit при вызове события Delete в OnChange?

Я искал в Google и проверил много мест для решения, но все случаи, которые я обнаружил, отличались или включали что-то более продвинутое, чем простое добавление или удаление строк. По сути, я хочу сделать своего рода прокрутку с расширенным редактированием (альтернативой было бы перемещение курсора вниз, для чего я уже нашел решение).

Я добавляю к нему строки и проверяю Lines.Count с помощью события OnChange расширенного редактирования, и как только оно достигает значения больше 15, я хочу вызвать Lines.Delete(0) , однако получаю сообщение об ошибке :

RichEdit line insertion error

Может кто-нибудь сказать мне, что я здесь делаю не так?

Raith 7 Май 2012 в 02:40

Вы получаете сообщение об ошибке RichEdit line insertion error , о чем вы можете упомянуть в своем вопросе. Я попытаюсь понять, почему, но вы можете просто удалить строку, прежде чем вставлять новую.

7 Май 2012 в 03:00

Gsm Aladdin V2 1.4.2 Crack Full & Fix Registry Error (win error code: 2)

Когда вы вводите слова «ошибка», следующее , что вы должны ввести, — это точная ошибка, которую вы получаете, с полным сообщением об ошибке.

7 Май 2012 в 03:00
7 Май 2012 в 08:55

1 ответ

Лучший ответ

Вы получаете RichEdit line insertion error из-за проверки, добавленной в версию Delphi 2009. Эта проверка проверяет, была ли вставка новой строки успешной, и эта проверка использует для этого позицию выбора. К сожалению, для следующего фрагмента кода:

procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Clear; RichEdit1.Lines.Add(‘1’); end; procedure TForm1.RichEdit1Change(Sender: TObject); begin if RichEdit1.Lines.Count > 0 then RichEdit1.Lines.Delete(0); end;

Рабочий процесс выглядит так:

1. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Получите позицию первого символа для строки, в которую будет вставлена ​​строка, добавьте разрыв строки к этой строке, установите выделение (длина 0, начиная с начала строки) и вставьте строку, выполнив сообщение EM_REPLACESEL, кроме текста вставка, также изменяет позицию выделения. Упомянутая выше проверка еще не была выполнена, и тем временем вставка текста вызывает событие OnChange, в котором вызывается TRichEdit.Lines.Delete.

2. — TRichEdit.Lines.Delete

Удаление делает нечто подобное. Он получает индекс первого символа удаленной строки, устанавливает выбор теперь по всей длине строки и выполняет сообщение EM_REPLACESEL с пустой строкой. Но, конечно, это также меняет позицию выбора. И в этом проблема, потому что теперь мы возвращаемся к последней строке функции TRichEdit.Lines.Insert.

3. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Осталось выполнить последнее из предыдущего вызова функции TRichEdit.Lines.Insert, злонамеренная проверка, основанная только на позиции выбора. И так как позиция была изменена за время удаления, она не соответствует ожидаемому результату, и вы получаете сообщение об ошибке.

Кроме того, прежде чем кто-то исправит эту проблему, не используйте даже это, это вызовет ту же ошибку:

How To Fix Miracle 2.82 Crack Error Problem Solution 2021

procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Lines.Add(‘1’); end; procedure TForm1.RichEdit1Change(Sender: TObject); begin RichEdit1.SelStart := 0; end;

Если вы не заснули от этой скучной истории, то я могу посоветовать вам просто по возможности избегать манипуляций со строками в событии OnChange (лучше сказать, только когда вы знаете, что может случиться).

Community 20 Июн 2020 в 12:12

Забыл упомянуть, что он был написан кодом из Delphi 2009. В настоящее время у меня нет другой версии вручную, поэтому я не могу проверить, такая же ли она и в других версиях.

7 Май 2012 в 05:04

Думаю, можно предположить, что он (почти) для всех версий одинаков, у меня Delphi XE2. Хорошо, кажется, что это работает, если я инициирую удаление не в OnChange, а сразу после добавления новой строки в той же процедуре, я полагаю, что это лучший способ справиться с этим на данный момент?

7 Май 2012 в 09:01

Хранить строки вставки и удаления вместе в одном месте (без использования события OnChange) — это нормально и более общее с моей точки зрения. Это сообщение об ошибке просто раздражает и должно быть удалено оттуда, ИМХО.

7 Май 2012 в 10:25

Спасибо за объяснение того, что на самом деле происходит за кулисами RichEdit. Кроме того, не выйдет ли он без этой ошибки и просто не добавит странного поведения? Или вы хотите исправить это, чтобы заставить его работать так, как я изначально пытался? (Пришлось удалить последний комментарий, потому что вы уже обратились к SelStart в событии.)

7 Май 2012 в 13:44

Я бы сказал, что чек с этим исключением принес больше вреда, чем пользы. Я не могу представить, что может случиться, что строка не будет вставлена; может не хватило мощности? Тем не менее, единственное, что вы получите из-за этого реального сбоя, — это возникшее исключение, но это все. По сравнению с последствиями изменения выделения (или модификации строк) в таких событиях, как OnChange или OnSelectionChange , это довольно высокая цена. На ваш вопрос, как вы сказали; вам придется пересчитывать позицию выделения с учетом удаленной строки, а не только восстанавливать позицию до удаления строки.

Источник: question-it.com

Я пролистал уже существующие темы, но как такового ответа не нашел. Может объясните кто-то, что за ошибка? Как исправить?
Смысл там думаю и так будет понятен, но все же: Ищу в строках richedit’a слова, и выделяю эти строки жирным.
Ошибка конкретно тут:

selstart:=FindText(s,0,length(text), [stWholeWord]);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
begin for i:=0 to Veto.Lines.Count-1 do begin if (pos(‘picked’,Veto.Lines.Strings[i])>0) or (pos(‘left over’,Veto.Lines.Strings[i])>0) then begin s:=Veto.Lines.Strings[i]; with Veto do begin selstart:=FindText(s,0,length(text), [stWholeWord]); sellength:=length(s); selattributes.Style:=[fsbold]; end; end; end; end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Ошибка «richedit line insertion error»
когда пытаюсь задать количество символов строке для вывода в RichEdit: AnsiString.

Избавиться от «RichEdit line insertion errror»
Посоветуйте, как избавиться от такой ошибки: «RichEdit line insertion errror» Ошибка.

Ошибка Parse error: syntax error, unexpected T_VARIABLE on line 11
Добрый день. Столкнулась с такой ошибкой в коде формы Parse error: syntax error, unexpected.

Заблокирован

Ошибка в том, что работать нужно со свойством RichEdit.Text, а вовсе не со строками. И то, текст ещё нужно «исправить» — удалить из него все переводы строки.

500 / 356 / 231
Регистрация: 29.03.2015
Сообщений: 675

Ваш код отлично работает у меня в Delphi 6, но начиная с Delphi 2009 добавили обязательную проверку на значения. FindText может вернуть (-1), если строка не найдена, поэтому у Вас код должен быть приблизительно такой:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
procedure TForm1.Button1Click(Sender: TObject); var i,p:integer; s:string; begin for i:=0 to Veto.Lines.Count-1 do begin if (pos(‘picked’,Veto.Lines.Strings[i])>0) or (pos(‘left over’,Veto.Lines.Strings[i])>0) then begin s:=Veto.Lines.Strings[i]; with Veto do begin p:=FindText(s,0,length(text), [stWholeWord]); if p>-1 then begin selstart:=p; sellength:=length(s); selattributes.Style:=[fsbold]; end; end; end; end; end;

Источник: www.cyberforum.ru

Почему я получаю сообщение об ошибке вставки строки RichEdit при вызове Delete в событии OnChange?

Я гуглил и проверял много мест в поисках решения, но все случаи, которые я нашел, отличались или включали что-то более сложное, чем простое добавление или удаление строк. По сути, я хочу сделать своего рода богатое редактирование с прокруткой (альтернативой было бы перемещение каретки вниз, для чего я уже нашел решение).

Я добавляю к нему строки и проверяю Lines.Count с OnChange событие богатого редактирования, и как только оно достигает значения больше 15, я хочу позвонить Lines.Delete(0) , однако я получаю сообщение об ошибке:

RichEdit line insertion error

Может кто-нибудь сказать мне, что я делаю неправильно здесь?

задан 06 мая ’12, 23:05

Ошибка, которую вы получаете, это RichEdit line insertion error , что вы можете упомянуть в своем вопросе. Я попытаюсь понять, почему, но вы можете просто удалить строку, прежде чем вставлять новую. — TLama

Когда вы набираете слова «ошибка», самое следующее вы должны печатать это точный ошибка, которую вы получаете, с полным сообщением об ошибке. — Ken White

1 ответы

Вы получаете RichEdit line insertion error из-за проверки, добавленной в версию Delphi 2009. Эта проверка проверяет, была ли вставка новой строки успешной, и эта проверка использует для этого выбранную позицию. К сожалению, для следующего фрагмента кода:

procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Clear; RichEdit1.Lines.Add(‘1’); end; procedure TForm1.RichEdit1Change(Sender: TObject); begin if RichEdit1.Lines.Count > 0 then RichEdit1.Lines.Delete(0); end;

Рабочий процесс выглядит так:

1. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Получите позицию первого символа для строки, в которую будет вставлена ​​строка, добавьте разрыв строки к этой строке, настройте выделение (длина 0, начиная с начала строки) и вставьте строку, выполнив сообщение EM_REPLACESEL, что, кроме текста вставки, изменяет также позицию выделения. Упомянутая выше проверка еще не была выполнена, а тем временем вставка текста вызывает срабатывание события OnChange, где вызывается TRichEdit.Lines.Delete.

2. — TRichEdit.Lines.Delete

Удалить делает что-то подобное. Он получает индекс первого символа удаленной строки, устанавливает выделение, теперь уже по всей длине строки, и выполняет сообщение EM_REPLACESEL с пустой строкой. Но это также, конечно, меняет положение выбора. И в этом проблема, потому что сейчас мы возвращаемся к последней строке функции TRichEdit.Lines.Insert.

3. — TRichEdit.Lines.Add → TRichEdit.Lines.Insert

Теперь остается сделать последнюю вещь предыдущего вызова функции TRichEdit.Lines.Insert, проверку на зло, основанную только на позиции выбора. И поскольку позиция была изменена при удалении, она не соответствует ожидаемому результату, и вы получаете сообщение об ошибке.

Кроме того, прежде чем кто-то исправит эту проблему, не используйте даже это, это вызовет ту же ошибку:

procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Lines.Add(‘1’); end; procedure TForm1.RichEdit1Change(Sender: TObject); begin RichEdit1.SelStart := 0; end;

Если вы не уснули от этой скучной истории, то могу посоветовать вам просто максимально избегать манипуляций со строками в событии OnChange (лучше сказать, только тогда, когда вы знаете, что может произойти).

Источник: stackovergo.com

TRichEdit Error mensage: RichEdit line insertion error

Возможно, адреса электронной почты являются анонимными для этой группы или вам требуется разрешение на просмотр адресов электронной почты ее участников, чтобы увидеть исходное сообщение.

I´ve only a form with a tRichEdit.
When I choose the Lines prop. of component I receive the mensage:

RichEdit line insertion error

I use Delphi 5, with pack 1.

I reinstall my delphi and the error persist.
Four days ago it´s ok and now not run.

Peter Below (TeamB)

не прочитано,
8 мар. 2001 г., 23:35:37 08.03.2001
Написать сообщение автору
Чтобы ответить автору, войдите в систему
Чтобы переслать сообщение, войдите в систему

Пожаловаться на сообщение
Чтобы пожаловаться на сообщение, войдите в систему
Показать исходное сообщение

Возможно, адреса электронной почты являются анонимными для этой группы или вам требуется разрешение на просмотр адресов электронной почты ее участников, чтобы увидеть исходное сообщение.

You can get this problem when you add a lot of text to a richedit using
richedit.lines.add. It seems to depend on certain versions of the
richedit DLL. You can work around it by not using lines.add but this to
add a line:

richedit.selstart := richedit.gettextlen;
richedit.seltext := linetoadd+#13#10;

If you add several lines in sequence the first statement setting the
selstart needs only be done before the first line you add.

There is another problem, also connected to some richedit DLL version
(mostly on Win9x): if you load a large file into the control it may
refuse to add more lines in code or by typing. This can be solved by
setting the controls MaxLength property to a value much higher than the
filesize after you loaded the file.

Источник: groups.google.com

Что не так?
Если поместить в ресурс тукстовый файл то всё хорошо но если ртф то ошибка при открытии, но сам файл загружается а потом ошибку выбивает(((

procedure TForm1 . Image2Click ( Sender : TObject );
var
LinesLoad : LongWord ;
begin
RichEdit1 . Clear ;
LinesLoad := FindResource ( hInstance , ‘Proj’ , RT_RCDATA );
LinesLoad := LoadResource ( hInstance , LinesLoad );
begin
RichEdit1 . Lines . Add ( StrPas ( PChar ( LinesLoad )));
begin
FreeResource ( LinesLoad );
end ;
end ;
end ;

Зарание благодарен!
С уважением,
Volkogriz!
Не количеством плюсов измеряется репутация человека.
Форумчанин
Регистрация: 11.10.2007
Сообщений: 372

Кто нить подскажет, хотябы намекните чтоб понять гте капать.
что только не пробовал выдаёт ошибку!
подскажите плиз
Зарание благодарен!
С уважением,
Volkogriz!

Не количеством плюсов измеряется репутация человека.
Форумчанин
Регистрация: 11.10.2007
Сообщений: 372
Всем спасибо разабрался спустя ночь)))

var LinesLoad:LongWord; LinesStream:TStringStream; begin RichEdit1.Clear; begin LinesLoad:= FindResource( hInstance, ‘Proj’,RT_RCDATA); LinesLoad := LoadResource(hInstance,LinesLoad); LinesStream:=TStringStream.create(StrPas(PChar( LinesLoad))); begin richedit1.Lines.LoadFromStream(LinesStream); begin LinesStream.free; FreeResource(LinesLoad); end; end; end; end;
Не количеством плюсов измеряется репутация человека.
Регистрация: 11.02.2014
Сообщений: 2

у меня с твоим кодом вопросики повылазили
и сделал вот так вот

procedure TBokus_UtilKad56_Glav_Form.LoadResRTF(Sender: TObject); var ResStream : TResourceStream; NameRTF : PWideChar; begin NameRTF:=pchar(Copy((Sender as TComponent).Name,3,100)); RE_Details.Clear; if FindResource(hInstance, NameRTF, ‘RTF’) <> 0 then begin ResStream:=TResourceStream.Create(hInstance, NameRTF, ‘RTF’); RE_Details.Lines.LoadFromStream(ResStream); ResStream.Free; end Else RE_Details.Text:=’Описание’; end;

Источник: www.programmersforum.ru