Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с SelAttributes

Hollander © (2006-11-28 14:42:00)
Народ у меня такая проблема: в своем копоненте написал процедуру

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;

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

Hollander (2006-11-28 20:11:00) [1]
Все спасибо, это и был RichEdit. Там была проблема в точ, что нужно было обнулять SelLength

MBo (2006-11-28 17:46:00) [2]
Сразу не обратил внимания - что за Memo такое, что у него SelAttributes есть, как у RichEdit?

Hollander (2006-11-28 16:59:00) [3]
А что это как-то повлияет??? Сейчас проверю

MBo (2006-11-28 14:47:00) [4]
>for i:=0 to Length(Lines.Text)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »