TRichEdit и удаление последней пустой строки

[Ognev]

Ректальный метод придется использовать и для Memo и для RichEdit, потому что этот перевод строки наследие TStrings. А на счет того, какой компонент здесь нужен, так я никого не уговариваю. Нравится вам Memo, используйте его. А я буду использовать RichEdit )))

 

[dustypup]

Ректальный метод придется использовать и для Memo

Не поленился и проверил. Нет такой проблемы у TMemo.

 

[demav]

Не поленился и проверил. Нет такой проблемы у TMemo.

Какой проблемы? Добавление пустой строки?

Есть! Я проверял.
Уже озвучивали, что это дело не в компоненте, а в реализации TStrings

 

[dustypup]

Есть! Я проверял.

Проверьте еще раз.

var
S: String;
begin
S := 'sdfsdf' + #13#10 + 'asfasf';
Memo1.Lines.Text := S;
RichEdit1.Lines.Text := S;
end;

 

[demav]

Проверьте еще раз.

Вот блин. И правда для TMemo не добавляется строка.
Я наверное проверял на TRichEdit, вот код, проверьте:

 RichEdit1.Lines.Clear;
 RichEdit1.Lines.Text := 'ABCD';
 Showmessage('|' + RichEdit1.Lines.Text + '|');

Я посмотрю почему в TMemo не так, ведь там тоже по идее TStrings.SetTextStr используется.

Хотя, нет, не стану. Что-то мы на какую-то фигню скатываемся

 

[Ognev]

Забавно. Проверил на D10 - в мемо строка не добавляется. Интересно было бы понять - почему. Чисто из платонической любви к знанию )))

 

[dustypup]

Тут все дело в том, что Memo.Lines это TStrings, а RichEdit.Lines это TRichEditStrings. Поэтому разница в поведении.
Смотреть в ComCtrls:

procedure TRichEditStrings.Insert(Index: Integer; const S: string);

  function CountLineBreaks(const S: string): Integer;
  const
    LB = #13#10;
  var
    P: Integer;
  begin
    Result := 0;
    P := Pos(LB, S);
    while P <> 0 do
    begin
      Inc(Result);
      P := PosEx(LB, S, P + 2);
    end;
  end;

const
  CRLF = #13;
var
  L: Integer;
  Selection: TCharRange;
  Fmt, Str: string;
begin
  if Index >= 0 then
  begin
    Selection.cpMin := SendMessage(RichEdit.Handle, EM_LINEINDEX, Index, 0);
    if Selection.cpMin >= 0 then
      Fmt := '%s' + CRLF
    else
    begin
      Selection.cpMin := SendMessage(RichEdit.Handle, EM_LINEINDEX, Index - 1, 0);
      if Selection.cpMin < 0 then Exit;
      L := SendMessage(RichEdit.Handle, EM_LINELENGTH, Selection.cpMin, 0);
      if L = 0 then Exit;
      Inc(Selection.cpMin, L);
      Fmt := CRLF + '%s';
    end;
    Selection.cpMax := Selection.cpMin;
    SendStructMessage(RichEdit.Handle, EM_EXSETSEL, 0, Selection);
    Str := Format(Fmt, [S]);
    SendTextMessage(RichEdit.Handle, EM_REPLACESEL, 0, Str);
    // RichEdit 2.0 replaces CRLF pairs with CR. We need to account for that when
    // verifying that the insertion succeeded in case S contains a CRLF pair.
    if RichEdit.SelStart <> (Selection.cpMax + Length(Str) - CountLineBreaks(Str)) then
      raise EOutOfResources.Create(sRichEditInsertError);
  end;
end;

 

[demav]

Тут все дело в том, что Memo.Lines это TStrings, а RichEdit.Lines это TRichEditStrings. Поэтому разница в поведении.

Похоже, дело не только в этом. При таком исполнении ЕСТЬ перенос строки:

  with TStringList.Create do
  try
  Text := 'ABCD';
  Showmessage('|' + Text + '|');
  finally
  Free;
  end;