안녕하세요.... 댁스터입니다...

메모 컴포넌트나 리치에디트 컴포넌트나 같이 Lines라는 프로퍼티를

가지고 있죠.... Lines는 TStrings형이고요...

TStrings에는 Count라는 프로퍼티가 있습니다...

결론적으로 Memo나 RichEdit나 둘다 다 Count 프로퍼티로 현재 라인 수를

구할 수 있습니다...

참고로 뭐 아시겠지만, 적어보죠...


procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 13) then Label1.Caption := InttoStr(RichEdit1.Lines.Count);
end;

뭐...요렇게 하니까 잘되는군요... 코드중 13은 엔터키입니다...

그럼 참고하세요...

 
                       THEXDER