Как в 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);