如何获取TMemo中显示的行数？

获取TMemo中显示的行数可以通过以下步骤实现：

1. 首先，使用TMemo的Lines属性获取文本内容的行数。Lines属性返回一个字符串列表，每个元素代表一个文本行。
2. 使用TMemo的ClientHeight属性获取TMemo控件的可见高度。
3. 使用TMemo的Font属性获取文本的字体信息，包括字体名称、大小等。
4. 根据可见高度和字体信息计算每行文本的高度。可以使用TMemo的Canvas属性来获取字体的高度，通过调用TextHeight方法传入字体信息来获取。
5. 将可见高度除以每行文本的高度，得到显示的行数。

以下是一个示例代码：

var
  lineCount: Integer;
  lineHeight: Integer;
begin
  // 获取文本行数
  lineCount := Memo1.Lines.Count;
  
  // 获取每行文本的高度
  lineHeight := Memo1.Canvas.TextHeight('Sample Text');
  
  // 获取可见行数
  VisibleLines := Memo1.ClientHeight div lineHeight;
  
  // 显示行数
  ShowMessage('Visible Lines: ' + IntToStr(VisibleLines));
end;

在这个示例中，我们使用Memo1.Lines.Count获取文本行数，Memo1.ClientHeight获取可见高度，Memo1.Canvas.TextHeight获取每行文本的高度。最后，将可见高度除以每行文本的高度，得到显示的行数。