Проблема с SelAttributes

← →
Hollander (2006-11-28 14:42) [0]

Народ у меня такая проблема: в своем копоненте написал процедуру

procedure TSmemo.show_syntax();
var i, j:integer;
s: string;
begin
s:=Lines.Text;
for i:=0 to Length(Lines.Text) do
if s[i]=" " then
for j:=i+1 to Length(Lines.Text) do
if s[j]=" " then begin
if copy(Lines.Text,i+1,j-1-i)="art"
then
begin
SelStart:=i;
SelLength:=j-i;
SelAttributes.Color:=clRed; // после этой командой и удаляет
end;
end;
end;

И вместо выделения, у меня просто удаляется текст который нужно выделить. В чем тут дело???

← →
MBo © (2006-11-28 14:47) [1]

>for i:=0 to Length(Lines.Text)

почему цикл от нуля?

← →
Hollander (2006-11-28 16:59) [2]

А что это как-то повлияет??? Сейчас проверю

← →
MBo © (2006-11-28 17:46) [3]

Сразу не обратил внимания - что за Memo такое, что у него SelAttributes есть, как у RichEdit?

← →
Hollander (2006-11-28 20:11) [4]

Все спасибо, это и был RichEdit. Там была проблема в точ, что нужно было обнулять SelLength

Проблема с SelAttributes Найти похожие ветки