안녕하세요.... 댁스터입니다...
메모 컴포넌트나 리치에디트 컴포넌트나 같이 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
|