TMemo 에서 라인 선택하기

TMemo 에서 라인별로 마우스 드래그를 통해 선택한 것처럼 하는 함수.


procedureMemoLineSelect(Memo: TMemo; LineNum: Integer);
begin
if Memo.Lines.Count<=LineNum thenExit;
Memo.SetFocus;
Memo.SelStart:=Pos(Memo.Lines[LineNum], Memo.Text)-1;
Memo.SelLength:=Length(Memo.Lines[LineNum]);
end;

만약 Memo1 의 첫번째 라인을 선택하고자 한다면, 아래처럼 호출.

MemoLineSelect(Memo1, 0);