Delphi-Help

Главная Статьи Многострочное окно редактирования (Memo) Как в Memo в конец каждой строки вставить слово

Как в Memo в конец каждой строки вставить слово

Оцените материал
(1 Голосовать)


Как в мемо в конец каждой строки вставить слово

var
  i : integer;
begin
  with Memo1, Lines do begin
    BeginUpdate;
 
    for i := 0 to Count-1 do
      Lines[i] := Lines[i] + 'ляляля';
 
    EndUpdate
  end;
end;

А так вот проще всего и намного быстрее для Memo:

with Memo1 do
    Text := ReplaceText(Text, ^m^j, ' ля-ля-ля!'^m^j);

Авторизация



Счетчики