RichEdit

[Valera]

Как програмно выделить нужную (по номеру) строку в RichEdit?

[Stilet]

Например так:

const str=4;
var i,k:integer;
begin
i:=1; k:=str; while (k>0)and(i<length(RichEdit1.Lines.T ext)) do begin
if copy(RichEdit1.Lines.Text,i,1)=#13 then dec(k);
inc(i);
end;
RichEdit1.SelStart:=i;RichEdit1.Sel Length:=length(RichEdit1.Lines[str]);
end;

Здесь str номер строки начинающийся с нуля.

[Valera]

Спасибо, я попробую.

[Valera]

Пожалуйста, объяните смысл этих строк.

copy(RichEdit1.Lines.Text,i,1)=#13
length(RichEdit1.Lines.Text

[Longedok]

while (k>0) and (i<length(RichEdit1.Lines.Text)) do
begin
   if copy(RichEdit1.Lines.Text,i,1)=#13 then
      dec(k);
   inc(i)
end;

...
k - это кол-во строк от начала файла до строки которую необходимо подсветить. i - текущий символ в RichEdit`е. Если этот текущий символ равен #13, то есть невидимому символу конца строки, то мы уменьшаем кол-во строк до необходимой строки на один (dec(k)). Когда k будет равно 0 мы будем знать, что достигли искомой строки. Но может случиться ситуация, когда строк в файл будет меньше чем указано. Вот на это случай и нужна вторая функция length(RichEdit1.Lines.Text). Она вернет нам номер последнего символа в файле. И если текущей символ равен последнему, то цикл закончится.

[Longedok]

Я тут нашел способ полегче:

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: Integer;
begin
  Line := 7;
  RichEdit1.SetFocus;
  RichEdit1.SelStart  := RichEdit1.Perform(EM_LINEINDEX, Line, 0);
  RichEdit1.SelLength := Length(RichEdit1.Lines[Line]);
end;

Line - номер строки которую нужно выделить начиная с нуля.

[Valera]

Большое спасибо за разъяснение. У меня не выделялся текст потому, что нужно еще HideSelection:=false
Я хочу уточнить - чтобы получить номер символа в тексте обязательно использовать Copy?

[Arigato]

Я хочу уточнить - чтобы получить номер символа в тексте обязательно использовать Copy?

Нет, вместо этого

if copy(RichEdit1.Lines.Text,i,1)=#13 then

Лучше делать так:

if RichEdit1.Lines.Text[i]=#13 then

[Valera]

Arigato, спасибо.

[Valera]

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

while (k>0) and (i<length(RichEdit1.Lines.Text)) do
begin
   if copy(RichEdit1.Lines.Text,i,1)=#13 then
      dec(k);
   inc(i)
end;

...
k - это кол-во строк от начала файла до строки которую необходимо подсветить. i - текущий символ в RichEdit`е. Если этот текущий символ равен #13, то есть невидимому символу конца строки, то мы уменьшаем кол-во строк до необходимой строки на один (dec(k)). Когда k будет равно 0 мы будем знать, что достигли искомой строки. Но может случиться ситуация, когда строк в файл будет меньше чем указано. Вот на это случай и нужна вторая функция length(RichEdit1.Lines.Text). Она вернет нам номер последнего символа в файле. И если текущей символ равен последнему, то цикл закончится.

Спасибо за объяснение. А, как выделить эту же строку любым цветом?