Memo

[Kyran29]

Как узнать количество выделенных строк в Memo?
Как узнать в какой строке находится курсор в Memo?

[Kotofff]

На любом из форумов есть поиск.

Просмотри эту тему до конца:
http://programmersforum.ru/showthrea...%F1%EE%F0+Memo

[Баламут]

Навскидку, строка на которой курсор

Label1.Caption := IntToStr(SendMessage(Memo1.Handle,EM_LINEFROMCHAR,-1,0))

ЗЫ. Опоздал...

[mosq]

Как узнать количество выделенных строк в Memo?

Я бы подсчитал количество символов #13 от Memo1.SelStart на протяжении Memo1.SelLength, столько и строк там

Как узнать в какой строке находится курсор в Memo?

Таким же подсчетом от Memo1.text[1] до Memo1.SelStart. Сколько #13 насчиталось, столько и строк от начала.

Как-то так..

[Kyran29]

mosq
Я бы подсчитал количество символов #13 от Memo1.SelStart на протяжении Memo1.SelLength, столько и строк там
Можно подробней?

[uberchel]

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

Как узнать количество выделенных строк в Memo?
Как узнать в какой строке находится курсор в Memo?

по первому пункту:

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption:= Memo1.SelText;
end;

по второму уже ответил Баламут.

[Kyran29]

uberchel
Не копировать то, что выделено, а количество выделенных строк (число).

[mosq]

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

mosq
Я бы подсчитал количество символов #13 от Memo1.SelStart на протяжении Memo1.SelLength, столько и строк там
Можно подробней?

Ну смотри, Memo1 можно рассматривать как одну длинную строку - Memo1.text
Соответственно, переносы строки в ней стоят как символы #13#10

Примерно так подсчитать количество этих переносов:

s:=copy(memo1.text,Memo1.selstart,memo1.sellength);
i:=0; //CRLF counter
repeat
if pos(#13#10,s)>0 then //if found line end
begin
delete(s,pos(#13#10,s),2); //del it from string
inc(i); //inc line counter
end;
until pos(#13#10,s)=0;
showmessage('total '+inttostr(i)+' lines');

ну вот как-то так. написал сходу, мож где ошибка будет.

upd: правда, тут вопрос - хочешь считать строки, которые memo1 переносит автоматом (wraptext=true) или те, которые реально перенесены enter'ом... вышеописанный код для второго варианта.

[Kyran29]

Спасибо mosq
Но проблемы я своей не решил !!!