подправьте коротенький код...

[DIgorevich]

Вот в твоём случае надо делать. Но, если грамотно, то нужно еще организовывать поиск по компоненту:

var
  d,d2:integer;
  s,s1:string;
begin
  //Сначала тебе надо получить строку. Я ее явно написал
  s:='ПРИВЕТ [В] МЕДВЕД[/B]!!!';
  s1:=s;
  d:=pos('[В]', s); //Ищешь позицию открывающего тега
  delete(s,1,d+3);  //Удаляешь открывающий тег
  d2:=pos('[/В]', s); //Ищешь позицию закрывающего
  delete(s,d2,length(s)); //Удаляешь закрывающий тег. в переменной s осталось то, что было между ними
  RichEdit1.SelStart:=pos('[В]', s1)-1; //Выделяешь текст где есть
  RichEdit1.SelLength:=pos('[/В]', s1)-4; //теги
  richedit1.SelText:=s; //и заменяешь текст с тегами, на текст без оных
  //дальше опять получаешь строку и присваиваешь ее s1 . Я ее опять явно написал
  s1:='ПРИВЕТ МЕДВЕД!!!';
  RichEdit1.SelStart:=pos(s, s1)-1;// Выделяешь текст
  RichEdit1.SelLength:=pos(s, s1)-2; //который только что вставил
  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];//и делаешь его жирным.
end;

Надеюсь разберешься.... И не забудь прочитать свою подпись и применить на практике

[MyLastHit]

очень странно, почему он только '!!' делает жирными? и закрывающий тег не удаляет..

[DIgorevich]

полный код приведи

[MyLastHit]

procedure TForm1.Button1Click(Sender: TObject);
var
d,d2:integer;
s,s1:string;
begin
//Сначала тебе надо получить строку. Я ее явно написал
s:='ПРИВЕТ [В] МЕДВЕД[/B]!!!';
s1:=s;
d:=pos('[В]', s); //Ищешь позицию открывающего тега
delete(s,1,d+3); //Удаляешь открывающий тег
d2:=pos('[/В]', s); //Ищешь позицию закрывающего
delete(s,d2,length(s)); //Удаляешь закрывающий тег. в переменной s осталось то, что было между ними
RichEdit1.SelStart:=pos('[В]', s1)-1; //Выделяешь текст где есть
RichEdit1.SelLength:=pos('[/В]', s1)-4; //теги
richedit1.SelText:=s; //и заменяешь текст с тегами, на текст без оных
//дальше опять получаешь строку и присваиваешь ее s1 . Я ее опять явно написал
s1:='ПРИВЕТ МЕДВЕД!!!';
RichEdit1.SelStart:=pos(s, s1)-1;// Выделяешь текст
RichEdit1.SelLength:=pos(s, s1)-2; //который только что вставил
RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style+[fsBold];//и делаешь его жирным.
end;

[DIgorevich]

В общем, ты просто скопировал мой код... Но учти, что я, для того чтобы оформлялось в посте нормально теги писал русской буквой Измени в Делфи в коде все эти [В] [/В] на одни и те же. А то получается, что в одной строке английская В, в другой русская.

[Hacker19_90]

Вот не большая модификация:

procedure TForm1.Button1Click(Sender: TObject);
var
  d,d2:integer;
  s,s1:string;
begin
  s:='ПРИВЕТ [В] МЕДВЕД[/B]!!!';
  s1:=s;
  d:=pos('[В]', s);
  delete(s,d,3);
  d2:=pos('[/B]', s);
  delete(s,d2,4);
  richedit1.SelText:=s;
  RichEdit1.SelStart:=d;
  RichEdit1.SelLength:=(d2 -d -1);
  RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];
end;

[MyLastHit]

Блин теперь еще страннее работает остается только МЕДВЕД, первый раз оно не жирным, второй раз если нажать - жирным..

[DIgorevich]

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

Вот не большая модификация:

Проверьте, код не работает.

Блин теперь еще страннее работает остается только МЕДВЕД, первый раз оно не жирным, второй раз если нажать - жирным..

var
d,d2:integer;
s,s1:string;
begin
s:='Привет [B]Медвед[/B]!!!';
s1:=s;
d:=pos('[B]', s);
delete(s,1,d+3);
d2:=pos('[/B]', s);
delete(s,d2,length(s));
RichEdit1.SelStart:=pos('[B]', s1)-1;
RichEdit1.SelLength:=pos('[/B]', s1)-4;
richedit1.SelText:=s;
s1:='Привет Медвед!!!';
RichEdit1.SelStart:=pos(s, s1)-1;
RichEdit1.SelLength:=pos(s, s1)-2;
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];

Мой код(скопировал) и в ричэдите строка находится

Привет [B]Медвед[/B]!!!

[MyLastHit]

procedure TForm1.Button1Click(Sender: TObject);
var
d,d2:integer;
s,s1:string;
begin
s:='ПРИВЕТ [В] МЕДВЕД[/B]!!!';
s1:=s;
d:=pos('[В]', s);
delete(s,d,3);
d2:=pos('[/B]', s);
delete(s,d2,4);
richedit1.SelText:=s;
RichEdit1.SelStart:=d;
RichEdit1.SelLength:=(d2 -d -1);
RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style+[fsBold];
end;

Спасибо огромное!) Работает...

[Hacker19_90]

Ну я не знаю я запарился его проверять уже!