Обставление текста тегами

[boostman]

Все наверно знакомы с HTML редакторами, там юзер выделяет определенный текст, нажимает кнопочку и выделенный текст обставляется тегами, например: <center>Выделенный текст</center>. Вот мой вопрос: возможно ли это реализовать в дельфях, а если да то как??

[BOBAH13]

допустим

var s: String;
text: String;
i1, i2: Integer;
...
// i1 - позиция начала текста, первого символа
// i2 - i1 + длина текста
// text - весь текст где выделенный текст
insert('</center>', text, i2 + 1);
insert('<center>', text, i1);

Ну на подобии этого Позицию узнаем, ну если компонент должно быть SelStart, SelCount или SelEnd ну иначе Pos, AnisPos )

[boostman]

Сообщение от BOBAH13

допустим

var s: String;
text: String;
i1, i2: Integer;
...
// i1 - позиция начала текста, первого символа
// i2 - i1 + длина текста
// text - весь текст где выделенный текст
insert('</center>', text, i2 + 1);
insert('<center>', text, i1);

Ну на подобии этого Позицию узнаем, ну если компонент должно быть SelStart, SelCount или SelEnd ну иначе Pos, AnisPos )

Ээээ а что должно быть между двоеточиями???
И это для Memo???
Чето недошло до меня...

Да и другие варианты есть??

[BOBAH13]

Какими двоеточиями ? Вы не знаете типы object pascal String, Integer ?

[boostman]

Знаю... вот этими двоеточиями
# i1, i2: Integer;
# ...
# // i1 - позиция начала текста, первого символа

Непонял кароче ниче...

[Andrei]

Сообщение от boostman

Все наверно знакомы с HTML редакторами, там юзер выделяет определенный текст, нажимает кнопочку и выделенный текст обставляется тегами, например: <center>Выделенный текст</center>. Вот мой вопрос: возможно ли это реализовать в дельфях, а если да то как??

Я бы сделал так :

Memo1.SelText:='<center>'+Memo1.SelText+'</center>';

И ничего считать не надо.

[boostman]

Спасибо попробую.

[BOBAH13]

Ну для начала, способ предложенный мной быстрей, второе считать ничего и так ненадо было, тертье про TMemo никто и неговорил, четвертое ... это имелось ввиду что вы пишите свой код какой-то, и что тут не ясно ?

p.s. это не двоеточие называется, а троеточие

[Andrei]

Сообщение от BOBAH13

... про TMemo никто и неговорил...

Вы совершенно правы, но в условии было сказано:

... <center>Выделенный текст</center> ...

И я предположил, хотя, может, и безосновательно, что текст выделили в процессе редактирования каком-либо строчном редакторе типа TEdit, TMemo, TRichEdit или любом от них происходящих. У всех них, как вы знаете, имеется свойство SelText...

А TMemo - это просто для примера.

Насчет быстроты ничего не скажу. Не знаю. Зато минимум кода.