Текст в конец строки.

[Fisherman86]

Была подобная тема, но вопрос несколько другой.
Мне нужно добавить в выделенном тексте!
Пробую так:

var 
   i :Integer;
   st2:string;
begin
   st2:='<br>';
for i:=mmo1.SelStart to mmo1.SelLength do
   begin
//-- подстраховываюсь но результат тот-же!
     if  i<>mmo1.SelLength then
    begin
      mmo1.Lines[i]:=mmo1.Lines[i]+st2;
    end
    else
    Exit
   end;

Итог "<br>" расставляется во всем тексте.
В принцепи, что не так и смому понятно, а вот как "одоптировать"???

[Hacker19_90]

К вам вопрос
А какая взаимосвязь между позицией курсора и номерами строки?
Если бы там TExt я бы ещё понял, но так не понятно
Да и по какому принципу текст должен вставлятся?

[Fisherman86]

Как получить номер "первой выделенной строки" и последней?

[xrob]

а никак! сами вычисляйте считайте =)
текст в мемо - это такая же строка.
и у вас есть координаты выделенной области в этой строке.
есть символ новой строки, пусть это будет | для наглядности.
ваш текст в мемо - это вот такая строка:
0000000|00000000|0000000000|0000000 00000|00000|0000

в мемо это отображается вот так:
0000000
00000000
0000000000
000000000000
00000
0000

вы выделили что-то в мемо и у вас есть "от" и "до" координаты выделения.
с точки зрения строки это:

0000000|00000000|0000000000|000000000000|00000|0000

а в мемо это отображается вот так:

0000000
00000000
0000000000
000000000000
00000
0000

таким образом, сколько | у нас встретится до начала выделения - с такой строки и начинается выделение
как вычислить строку, где заканчивается выделение - догадайтесь сами, мне пора убегать =)

[Аватар]

if Memo1.SelLength>0 then Memo1.SelText:=Memo1.SelText+'тра-ля-ля';

Или в таком духе

[Fisherman86]

Не вариан ТЕКСТ ПРОИЗВОЛЬНЫЙ,
А надо как в delphi "закомментировать"
Т.е если в строке хоть один символ выделен, то перед строкой
прога "рисует" "//".
В моем случае в конце.

[Hacker19_90]

Ну а так

Memo1.Lines.Strings[Memo1.CaretPos.Y] := '//' + Memo1.Lines.Strings[Memo1.CaretPos.Y];

[Stilet]

Итог "<br>" расставляется во всем тексте.

Чо то я не понял критерия подстановки...
Тебе нужно выделенную часть текста заменить на некую подстроку во всем тексте где она встречается?

[Fisherman86]

Должно быть так:
Текст
Текст
Текст
Текст
Текст

Кпримеру:
Я выделил три строки в середине
и нажал кнопку
в результате:

Текст
Текст<br>
Текст<br>
Текст<br>
Текст

[Stilet]

Я выделил три строки в середине
и нажал кнопку

with memo1 do SelText:=StringReplace(SelText,#13#10,'<br>'#13#10,[rfreplaceall]);

Подойдет?