обёртывания текста в теги

[designer999]

Всем привет
Общем есть поле Memo1 и несколько кнопок, как сделать так что бы когда выделяеш текст и нажимаиш например на Button1, текст берётся например в теги [QUOTE1] [/QUOTE2]

Много перерыл инфы но что то не увидел ответа, помогите пожалуйста

[W0LF]

Прошу... Выделяете текст в Memo и при нажатии на кнопке выделенный текст заносится в тэги...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := Copy(Memo1.Text, 1, Memo1.SelStart)
                + '[QUOTE1]' // Первый тэг
                + Copy(Memo1.Text, Memo1.SelStart + 1, Memo1.SelLength)
                + '[/QUOTE2]' // Второй тэг
                + Copy(Memo1.Text, Memo1.SelStart + Memo1.SelLength, Length(Memo1.Text));
end;

P.S.: если не жалко - кликни по весам

[evg_m]

когда выделяеш текст

это будет Memo1.SelText (свойство типа string и для чтения и для записи)

[designer999]

всё отлично работает только когда я выделяю например текст

Текст программы

оно повторяет последнюю букву после тега

[QUOTE1]Текст программы[/QUOTE2]ы

что нужно исправить ?

[Volt]

memo1.SelText:=  '[QUOTE1]' +memo1.SelText+'[/QUOTE2]';

[designer999]

спасибо большое

[MyIE]

Вопрос немного не в тему, но вдруг
Есть код для форматирования текста вида(RichView)

    case s[i] of
      '[':
        CodeStarted := not CodeStarted;
      'b', 'u', 'i', 'B', 'U', 'I':
        if CodeStarted then begin
          AddString(StartIndex, i-2);
          StartIndex := i+1;
          StyleNo := GetStyleNo(LowerCase(s[i])[1], clNone, StyleNo);
          CodeStarted := False;
        end;
      'c', 'C', 'k', 'K':
        if CodeStarted then begin
          ColorChar := LowerCase(s[i])[1];
          ColorValue := '';
          CodeStarted := False;
        end;

Сейчас формат текста выполняется по строке вида [bтекст_жирный[b
Вот мне бы сделать обычный бб-код для RichView, т.е. чтобы работало как [b ]текст_жирный[b/]
Почти как бб-код, ток дробь хочу в конце.