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

[MyLastHit]

Добрый день, решил написать программы которая делать следующее. Если в строке(RE) встречается [В] и [/В] то удалить их, а то что между ними сделать жирным текстом. Вот мой код...

var s:string;
d,d2:integer;
r:boolean;
begin
s:='привет [В] медвед [/В] Ыыыы'
d:=pos('[В]', s);
delete(s,d,3);
d2:=pos('[/В]', s);
delete(s,d2,4);
r:=true;
end;
begin
if r then RichEdit1.SelAttributes.Style:=[fsBold];
end;

Как то так... писал сам-потому и не робит

[MyLastHit]

Аааа сори, исправил все. Форум воспринял [В] как тег для жирности

[Stilet]

Тут не править нужно а переписывать наново...
Это вообще никуда не годится...
Тут наоборот нужно проходится по символам в РичЭдите не используя никакой дополнительной строки.

[Sanprof]

попробуте так, но я не уверен, не проверял

var s:string;
d,d2:integer;
r:boolean;
begin
s:='привет [В] медвед [/В] Ыыыы'
d:=pos('[В]', s);
delete(s,d,3);
d2:=pos('[/В]', s);
delete(s,d2,4);
r:=true;
end;
begin
RichEdit1.SelStart := d;
RichEdit1.SelEnd := d2;
if r then RichEdit1.SelAttributes.Style:=[fsBold];
end;

[MyLastHit]

Эм у меня делфя не понимает SelEnd...
Delphi 7... низачто не буду ставить более новые версии!

Так как же решить эту траблу?..

[aRise]

на сколько я помню там не конец выделения а длина указывается.

[MyLastHit]

переделал так, но всеравно не то...:

begin
d:=pos('[В]', s);
delete(s,d,3);
d2:=pos('[/В]', s);
delete(s,d2,4);
t1:=d2-d;
r:=true;
end;
begin
RichEdit1.SelStart := d;
RichEdit1.SelLength := t1;
if r then RichEdit1.SelAttributes.Style:=[fsBold];

[MyLastHit]

Все же почему не работает?..

[DIgorevich]

Вообще-то жирность делается немного по-другому:

RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];

[MyLastHit]

всеравно не так... просто удаляет [В] и [/В] и все.